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1.0 Scope 



This guide is intended to show how to use the Diagnostics that were enhanced by the 
Electronics Division (ED) to test the TOR DO processor configuration. This 
document will cover the following areas: 

1. What the enhanced diagnostics are. 

2. Where they are and how to get them. 

3. How to read the related documentation. 

4. How to run the programs. 

5. How to use the Midas logger. 

6. How the new Midas display is organized. 

In order for this document to be useful, the user must have some experience with 
running microprograms under Midas control, but does not need to be able to write 
or understand microcode statements. The DO Hardware Mannual of May 16, 1979 is 
a required reference to this guide. 

I would like to extend my thanks to the ED diagnostics team for their help in 
preparing this document, in particular I would like to thank Ray Matsuda and 
Carter Tseng who have been especially helpful. Any questions or comments 
regarding this guide can be directed to: Mike Spaur, DPP/ED, El Segundo, 
extension 1507. 

2.0 Applicable Documents 

1. DO Hardware Manual 
RTG, May 16, 1979 

2. DO Micro Assembler Manual 

B. Rosen, December 30. 1977 

3. Micro: Machine Independent Micro Assembler 
E. Fiala et. aL August 29, 1978 

4. MicroD Manual 

P. Deutsch. October 20. 1978 

5. Di) Micro Programmer's Guide 

C. Hankins. August 22. 1978 

6. Midas Manual 

E.. Fiala. December 29. 1977 

". DO Midas Manual 

B. Rosen. December 30. 1977 

\ DO/TOR ESS Manufacturing Test Strategy 
H. Kakita. December 4. 1979 
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3.0 The Enhanced Diagnostics 

The ED microdiagnostics are enhanced versions of the functional microcode that 
have been standardized for the following purposes: 

1. To reduce familiarization time through better readability of the documentation. 

2. To install certain features that are common to the Midas display for all tests, 
thereby making them easier to use. 

3. To install looping capabilities to make the programs more effective for diagnosing 
hardware errors. 

4. To install a Midas logger to enable Midas to control the test and log the 
breakpoints that are encountered. 

Note that in most cases the coverage of these diagnostics have not been increased. 
Therefore, if the original functional microcode has left certain areas of the processor 
untested, the enhanced diagnostics also leave these same areas untested. 

The diagnostic programs are tests written in DO microcode to test various portions of 
the DO processor under Midas control. The tests are loaded into the DO instruction 
memory using Midas. Midas is a loader/debugger that runs on an Alto and controls 
the DO remotely. Some of the files required to support Midas are: 

Midas.run (the Midas run file) 

Midas.programs (contains the name of command files required by Midas) 

Midas.syms (a symbols file for Midas) 

Kernel.mb (microcode that runs in the DO and talks to Midas) 

Midas.midas (defines the initial screen) 

All of the files needed to support Midas (there are 10) can be retrieved by loading 
from the dump file [ISIS]<EDMOD>Rev-l>Midas.dm. Note that these files require 
that vour disk executive be at Operating System 17. The following is a list of the 
diagnostics that have been revised, with an indication of the hardware it is intended 
to test. Note that the name of the revised diagnostics are the same as the original 
functional microcode except that the name is preceded by the letters ED. 

EDALU: This test exercises some basic functions of the ALU module, 

Configuration: The standard four CPU boards. 

EDBitBlt: This test exercises the Bitblt (bit boundary block transfer) 

hardware. It moves information from one region of main storage 
to another, and modifies the information at the destination. 
Configuration: The standard four CPU boards. 

FDBootDO: This is a BCPL program that runs in the Alto and loads the 

Kernel.mb file into the DO Control Store. Because this program 
is not written in DO microcode, it's documentation is not the 
same as the other tests. 
Configuration: The standard four CPU boards. 
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EDCSEx: 



EDCyM: 



EDField: 



EDMemAbort: 



EDMemEx: 



EDProc: 



EDLProc: 



EDRDCD: 



EDRMEx: 



This test exercises the Control Store module as a 4K by 36 bit 
memory. Note that this test does not exercise the first 256 or the 
last 512 Control Store locations to protect the test program and 
the kernel. 
Configuration: The standard four CPU boards. 

This test exercises all functions of the Cycler/Masker except the 
FixVA functions which are tested by EDTNF. 
Configuration: The standard four CPU boards. 

This test simulates the RF, WFA and WFB field operations 
without using the cycler masker and then compares the results 
with the actual executions of the corresponding operations. 
Configuration: The standard four CPU boards. 

This diagnostic tests the memory reference abort conditions. 
Configuration: The standard four CPU boards and one 96K 
storage module. 

This program tests the memory mapping logic and 96K storage 

modules. 

Configuration: The Standard four CPU boards and the 96K 

modules to be tested (up to eight 96K boards may be tested). 

This is a midas command file that links all of the other EDXXX 
tests together and runs them one at a time, begining with CPU 
tests and progressing to the memory tests. Note that this 
program stops at the EDMemEx breakpoint "Found X 96K" 
where X is the number of 96K storage boards found by the 
EDMemEx program. The user should verify at this point that the 
number of boards found by the EDMemEx is correct and then 
bug continue. 

Configuration: The standard four CPU boards and at least one 
96K storage module. 

This test is the same as EDProc except that it has added looping 

capabilities for overnight testing. Thus it doesnot stop at any 

breakpoints. 

Configuration: The standard four CPU boards and at least one 

96K storage module. 

This test exercises the SA4000 Rigid Disk Controller. 
Configuration: The standard four CPU boards, one 96 K storage 
module, an RDC module and an SA4000 disk drive. 

This program exercises all of the R-registers except those used in 

this program or by the kernel. 

Configuration: The standard four CPU boards. 
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EDSmallMem: 



EDTask: 
EDTimEx: 

EDTMP: 



EDTNF: 



EDUTVFC1: 



This test exhaustively exercises the control store as a 4K by 36 bit 
memory excluding the first 256 and the last 512 locations. Also, 
this tests exercises all of the T-registers except T[16] and T[17]. 
Configuration: The standard four CPU boards. 

This program exercises the task switching hardware. 
Configuration: The standard four CPU boards. 

This test exercises timers to 15. It replaces the page 16 portion 

of the standard kernel 

Configuration: The standard four CPU boards. 

This test exercises various features of the maintenance panel 
display. Note that this test involves interaction with the user. 
The user is required to observe that the proper numbers appear 
on the the maintenance panel display. For this reason no Midas 
logger was implemented for this program. 
Configuration: The standard four CPU boards and a four digit 
maintenance pannel (featuring the TMS1000 circuit). 

TNF stands for Test New Functions. This program tests the 

Newlnst feature, the Byte Code register and the new field 

descriptors. 

Configuration: The standard four CPU boards. 

This diagnostic exercises the User Terminal Variable Format 

Controller. 

Configuration: The standard four CPU boards, one 96K storage 

module, a UTVFC module and the Large Format (LF) display, 

LF Keyboard and associated power supply/interface unit. 



As an overview, the following table gives a list of the DO modules and the diagnostics 
that deal with each one. Note that all of the diagnostics rely on the ALU, the 
Control Store, and the Miscellaneous Processor modules to be in working order, but 
the EDALU test, for example, is specifically designed to test certain features of the 
ALU module. 



Processor Hardware 
1. ALU 



Diagnostics Invohed 

EDALU 

EDBitBlt 

EDCyM 

EDField 

EDTNF 
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2. Control Store 



3. Ethernet Controller 

4. Maintenance Panel 



EDBootDO 

EDCSEx 

EDMemAbort 

EDRMEx 

EDSmallMem 

EDTask 

EDPackets 

EDTMP 



5. Memory Controller 

6. Miscellaneous Processor Module 

7. Rigid Disk Controller (SA4000) 

8. User Terminal Full-page Controller 

9. 96K Storage Board 



EDMemAbort 
EDMemEx 

EDBitBlt 

EDMemAbort 

EDTask 

EDRDCD 

EDUTVFC1 

EDMemEx 
EDMemAbort 



4.0 Organization of Documents 

All of the enhanced diagnostics are kept on [lSIS]<EDMOD>Rev-l>. The files on 
this account can be divided into two main categories; run files and documentation 
files. Strict naming conventions have been used in creating these files. All of the 
documentation for the EDXXX test for example, would be kept in files that begin 
with EDXXX and end with an extension that indicates what the contents of the file 
are. Sections 4.1 and 4.2 give a list of file extensions with an explanation of the 
corresponding contents. 



4.1 Run Files 

All of the files necessarv to run the EDXXX test are obtained by loading from the 
EDXXX.dmtest file on [ISIS]<EDMOD>Rev-l>. This dump file contains all of the 
necessary files needed to run the EDXXX test assuming that you already have a 
Midas svstem on vour disk. The following files are contained in EDXXX.dmtest. 
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EDXXX.mb This is a microbinary file which is loaded into the DO by Midas, 

and executed by the DO under Midas control. 

EDXXX.midas This file defines the Midas display for the EDXXX test 

EDXXXLog.midas This is a command file that allows Midas to run the EDXXX test 
and log the results in a bravo file called EDXXX.report The 
EDXXXLog.midas file will be refered to in this guide as the 
Midas logger and it's use is discussed in section 8.0. 

4.2 Documentation Files 

You can obtain a hard copy of the documentation files by loading from 
EDXXX.dmdoc at [ISIS]<EDMOD>Rev-l> assuming that you have Empress.run on 
your disk. This dump file contains all of the following documentation for the 
EDXXX test 

EDXXX.mc: This is the source code that was compiled to produce the 

EDXXX.mb file. The organization of the EDXXX.mc file is 
described in detail in section five. 

EDXXX.silpress: This is a set of flow charts that describe the workings of the 
EDXXX test. The symbols used in these charts are defined in 
section six. 

EDXXX.dls: This document is a list of all of the instructions that are loaded 

into the DO and their corresponding locations in the DO Control 
Store. How to read this file is discussed in section seven. 



5.0 The Scource Code 

The scource code for DO diagnostics is contained in a file that will be named 
EDXXX.mc. The ~.mc file contains the DO microcode statements that were 
compiled to produce the microbinary file that is loaded into the DO Control Store by 
Midas. The ~.mc file has some very useful information on the front pages. The 
organization of this information is described in this section. All of the descriptions in 
this section refer to pages Al to A7 of the appendix. These pages contain sections of 
the EDMemEx.mc file, and are listed for illustrative purposes only. 

The first pages of the ~.mc file are organized into blocks of information. At the top 
of the first page is the title block (see item 1 page Al). This block contains the name 
of the test, the purpose, the required hardware configuration, the author, and a 
history of the modifications, along with name of the person who altered the test. 

Item 2 on page Al contains a list of the subtests in the EDMemEx test, with a short 
description of what each subtest does. 
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Item 3 on page Al contains a list of breakpoints that may be encountered during the 
EDMemEx test, and explains the meaning of each one. 

Item 4 on page A2 contains a table of the breakpoints with a list of corresponding 
Comtrol Store addresses. A logic analyzer can be synchronized to these addresses and 
events that occur near this location in the program can be observed, (see section 7.0 
for more details). 

Item 5 on page A2 contains the names of special user definable R-registers, with an 
explanation of the meaning of each one. These registers will be shown on the Midas 
display. They can be changed by the user and their value will have an effect on the 
parameters of the program as it runs in the DO. All ~.mc file numbers and all 
numbers displayed by Midas are in octal. 

Item 6 on page A3 contains a list of the subroutines used by the EDMemEx test, 
with a comment on what each one does. 



The actual source code begins on page A5. The initialization statements occur at the 
beginning of the source code (see item 7 page A5). After the initialization 
statements, the initial values of certain constants and R-registers are given (items 8 
and 9 on page A5). Here are some examples: 



SET|[Mumble,X]: This statement initializes a 16 bit constant named "Mumble" and 
sets it equal to the octal value of X. 

MC[Foo,Y]: This statement initializes an 8 bit constant named "Foo" and sets 

it equal to the octal value of Y. Either the least significant or 
most significant half of Foo may be specified by the octal value 
of Y. The other 8 bits must be zero. 



RV[Re\ample,A,B]: This statement gives the Ath R-register the name "Rexample", 
and sets it equal to B, where A and B are octal numbers. The 
statement of A is optional. 



Along side of these initialization statements may be some comments that are 
preceded by an asterisk (*). These comments will explain how the constant or 
register is used in the program. 



After the initialization statements are made, the main routine is listed (see item 10 
on page A7). each line of this main routine equates to an actual instruction in the DO 
Control Store. Each of the microcode statements ends with a colon (;). These 
statements may be followed by a comment which will be preceded by an asterisk (*). 
These comments will make some statement about what the program is doing. 
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After the main routine, the source code for the subroutines is listed. It is not 
necessary that you be able to understand all of these microcode statements to be able 
to use the test, but certainly it could be of assistance to you. See reference numbers 
2 through 5 in section 2.0 for further information regarding DO microcode. 



6.0 Flow Chart Conventions 

This section gives a description of the conventions used in flow charting the new 
diagnostics. The basic symbols used are shown on page A8 of the appendix. All of 
the comments in this section refer to that page. 

Figure 1 on page A8 is the symbol used to indicate the beginning of execution of the 
program. 

Figure 2 is a statement box. The program executes these boxes in sequential order. 
All statements in any box will be executed before the program moves on to the next 
item. 

Figure 3 shows an instruction box. This box symbolizes a special instruction that has 
been implemented to avoid repetitious subroutines. Figures 7, 8, 10, 11 and 12 are 
examples of these instructions, and will be discussed in more detail below. 

Figure 4 is a decision box. The statement it contains will be mathematical or logical 
in nature. If the statement contained in the box is true then the program will 
proceed to the next item that occurs in the "yes" branch, otherwise program flow 
will follow the "no" branch. 

Figure 5 illustrates a label. All of the names on the flow chart that appear in bold 
letters in front of the boxes and are followed by a colon are labels. These labels can 
be found in the source code file (~.mc) and are associated with actual locations in 
the Control Store. The EDXXX.dls file will be referenced to these labels, and Midas 
is aware of them. It is possible to begin executing or stop executing the program at 
any location using Midas and referencing these labels. 

Figure 6 is a jump box. Following this item, execution will begin at label "mumble" 
which appears on page X of the flow charts. 

Figure 7 is a symbol that represents a special function internal to the processor which 
clears the maintenance panel. If execution of the program halts immediateh after 
this instruction then the display should read 0000. 

Figure 8 is a symbol that represents another internal function which increments the 
maintenance panel by one. These maintenance panel functions are used in the 
diagnostics to display where execution is occurring in the program. 
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Figure 9 is an example of a call statement. If this symbol occurs to the right side or 
underneath a statement or decision box, then after the program is done with that box 
it will begin execution of the items that follow the label "Foo" on page y. The 
program will continue to execute the statements that follow the "Foo" label in a 
normal way until it encounters a return statement 

Figure 10 is the symbol that represents the return statement When it is 
encountered, the program will jump back to the previous call statement and start 
execution of the items directly beneath that call. However, this may not happen 
immediately. If there is a higher priority task requesting service (such as memory 
refresh), then that task may get control of the processor after the return statement is 
encountered. If this happens, then control of the processor will be returned to the 
pro-am when the higher priority tasks have finished. The program will then begin 
execution of the items that follow the previous call. 

Figure 11 is the task symbol. This symbol represents a special microcode statement 
that allows another higher priority task to have control of the processor. It is 
equivalent to a call followed by a return statement When the higher priority tasks 
are finished, execution will begin at the item which is directly beneath the task 
statement Branches may be connected to the path underneath a task symbol, 
especially if the diagnostic is designed for input output hardware. This is to let you 
know that other tasks will possibly get control of the processor if certain conditions 
occur. A note should appear by each of these branches to let you know what these 
conditions are. For instance a note may appear by one of the branches that reads: 
"Task 2 if wakeup occurs ". 

Figure 12 is the notify symbol. This statement causes task switching like the task 
statement But it also' forces the processor to return to a specific task and location. 
This task and location is specified by the contents of the APC and APCTask 
registers. For a more detailed description of the notify statement see page 54 of 
reference 5 (section 2.0). Again branches may appear under the notify symbol to 
indicate the various tasks that may run next. 

Fisure 13 is an illustration of the loop path symbol. When the decision box is 
reached, the processor looks at the register "ShortLoop" and sees if it is equal to one. 
If it is. the program execution follows the heavy black line, and will continue to do so 
until ShortLoop is no longer equal to one. or until Midas encounters a breakpoint or 
a mouse halt. Whenever\'ou see heavy black lines on the flow chart it means that 
this is a path that can be looped on. Loop paths have been installed so that some 
special part of the program can be looped on for trouble shooting purposes. 

Fimire 14 is the breakpoint symbol. When the program encounters this item, 
execution will halt and control will be given to user via Midas. If the "continue" 
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item on the Midas menu is bugged, the program will resume execution with the 
item that is directly beneath this breakpoint Breakpoints are usually inserted in a 
program to halt execution when the hardware being tested has failed to pass some 
subtest of the program. 

Figure 15 is the dispatch symbol. A dispatch is a multiple branch to up to sixteen 
different locations. First a variable (X in this example) is set up. The branch takes 
place based on the value of this variable. The numbers on the legs of the brances 
represent the possible values that X can assume. If all of the possible values are not 
indicated, some default condition should be stated. 

Figure 16 is the end symbol. It means that if the program encounters the breakpoint 
preceding this symbol, then it has finished one complete iteration of the EDXXX 
test Usually the program will start again from the beginning for another iteration if 
the continue item is bugged from this breakpoint 



7.0 The Machine Listing 

The machine listing file is produced by a compiler from the scource file. The 
machine listing file will be named EDXXX.dls. The letters dls stand for D-machine 
listing. An example of the ~.dls file for the EDCyM program is given on page A9 of 
the appendix. The following is a list of the information given in coulmn form in the 
EDXXX.dls file. 

Imag (The Control Store Address in imaginary format) 

Real (The Control Store Address as in appears on the CIA lines) 

WO (The least significant 15 bits of the micro instruction) 

Wl (The next significant 16 bits of the micro instruction) 

W2 (The most significant 4 bits of the micro instruction) 

Symbol (A reference to the closest preceding label) 

Note that next to imaginary address 26 in the EDCyM.dls file the is a "b" between 
the Imag and Real columns. This is to let you know that there is breakpoint inserted 
in this location. You may see an "@" sign between the Imag and Real coulmns. 
This is to let you know that the instruction is appears next to has a fix location which 
is specified in the ~.mc file by the At[N] instruction. 

This information is given for every instruction in the EDXXX.mc file. The most 
interesting information for the purpose of debugging is the real address column. The 
real address column lists the actual address that will appear on the 12 bit Control 
Store address lines CIA[00:11] during that instructions cycle. 

In the real address column you may see some number such as 1463 for a real 
address. The numbers that appear in the ~.dls file are all in octal. The binary 
equivalent 1463 octal is 001 100 110 Oil. In this case, the least significant bit 



DO Diagnostic User's Guide 12 

(CIA.ll) would be a one, and the most significant bit (CIA.OO) would be a zero. 

Using the appropriate sil drawings for a particular revision of the Control Store 
module, a good place to connect test probes can be found. Then a logic analyzer can 
be triggered on the Control Store address lines. Any event in the processor can be 
observed by synchronizing on the address of an instruction which occurs just before 
the event Be careful the CIA bus exists in complemented form in several places on 
the Control Store module. 

The real Control Store addresses of each breakpoint in the program have been put 
into table form and listed at the beginning of the ~.mc file (see page A2 item 4). 
These are the Real addresses to which the program will proceed from the given 
breakpoint 



8.0 Using The Midas Logger 

A Midas logger has been created for each microdiagnostic. The logger command file 
for the EDXXX test will be named "EDXXXLog.midas". This logger is a Midas 
command file that runs Midas and logs certain information in a file called 
EDXXX.report An example of the print out for the EDCyM program is given on 
page A10 of the appendix. 

If the hardware should fail the test at some given breakpoint in the program, the 
logger will print pertinent information regarding that breakpoint In the EDCyM 
program for instance, if the logger encounters the breakpoint "ResultBad", it enters 
the text "Result does not equal myResult". It then logs the value of the following 
registers: (see page A10) 

Result 
myResult 
SubTest 
PassCount 

If the processor should fail to run the program properly and fail at some location 
other then a program breakpoint then the logger will record the state of the 
following column A registers: 

Parity 

CIA 

CTask 

APCTask 

APC 

TPC 

Once the Midas system is started, the logger can be activated by typing 
"EDXXX LOG" on the Midas input text line and then bugging " Read-Cm ds". The 
lesser command file will then restart the EDXXX test and begin logging the results. 
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To stop the Midas logger, bug the "Abort" item while the logger is running the test 
Control will then return to the Alto executive and a hard copy of EDXXX.report 
can be obtained using empress. 

Note that when the test fails not at a standard breakpoint, the logger records the 
status in EDXXX.report and then attempts to restart the EDXXX test In this 
instance the logger cannot loop on the failure. If ShortLoop is set equal to one when 
the logger encounters this failure, it will log the results and restart the test, which will 
reinitialize the ShortLoop register to zero. The logger should be helpful though for 
determining reliability and for long term exercising. 



9.0 The New Midas Display 

Page All of the appendix shows an example of the standardized Midas display (this 
one is for the EDCyM program). Column A has the same processor registers that 
are displayed for all tests as defined by the Midas.midas file. 

Note that some of the registers shown on the display on page All have an asterisk 
(*) next to their name. Any register on the midas display whose value has changed 
since the last time displayed (since the last breakpoint) will have an asterisk next to 
its name. 

Locations BO to B4 have been standardized, and are now the same for all EDXXX 
tests. Here is what thev contain: 



Meaning 

The revision level of this version of the EDXXX test 

The octal number of seconds it takes to run the 
EDXXX test once. 

The number of passes of the entire EDXXX test that 
have been completed. 

The number of passes of the entire EDXXX test after 
which the program will breakpoint at " Passed- EDXXX- 
Test". Feel free to change this number by using Midas. 

B4 SubTest The current subtest of the EDXXX program that you 

are in. 



Location 1 


Register Name 


BO 


Revision 


Bl 


Run-Time 


B2 


Passcount 


B3 


Max Pass 



BootReason Displayed 


Corresponding bit 


40C 


Bit 10=1 


20C 


Bit 11 =1 


IOC 


Bit 12 =1 


4C 


Bit 13 =1 


2C 


Bit 14=1 


1C 


Bit 15 =1 
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Locations CO to C3 are the communications registers Comm-ErrO, Comm-Errl, 
Comm-Err2, and Boot-Err. These registers are counters that keep track of how many 
times certain boot and communications events occurred with errors. They should 
always contain zero values. 

Location C4 is the Boot Reason register. This is a 6 bit register that indicates the 
cause of the last processor boot. Only one bit should be set in this register. The bits 
have the following meaning: 

Reason for boot 
Tester boot 

Maintenance panel boot 
Watchdog timer boot 
Group B function boot 
Power boot 
Parity error during task 15 

While running Midas, the BootReason register will normally contain a 40 to indicate 
that the processor was boot strapped by tester hardware. 

Location C5 contains the MemSyndrome register. The contents of this register is a 
memory syndrome that is used to correct single errors and detect double errors in 
memory data. This register will probably never be of use to you, but donot be 
alarmed by a non-zero value here. 

In the lower right hand corner of the register fields are the user definable registers. 
There may be several registers in this field but there will always be one register called 
ShortLoop or LoopOn there. The ShortLoop or LoopOn register is set equal to one 
by the user if he wishes to loop on the current subtest. Always check the flow charts 
to see how this register is used in the test. Not all subtests in every program have 
this capability. 

If there are any other registers in this user definable area, then their meaning and 
how to use them will be discussed in the special register section of the ~.mc file (see 
page A2 item 5). All of the user definable registers will always be the bottom group 
of registers in the C column. 

The rest of the area on the Midas display is devoted to registers that are peculiar to 
the EDXXX program. The purpose of these registers will" be explained in the flow 
charts and in the front pages of the ~.mc file. These registers can be altered by the 
user, but for the results to be meaningful you must have a clear idea how the register 
is being used in the program. In this area, knowledge of microcoding is necessary. 
However, the diagnostics should be fairly thorough as written, and you should not 
need to alter these special registers to test the hardware extensively. These registers 
were placed on the display to show you what state the program is in. 
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figure 1 



Statement 
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Special 
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CLRM 
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INCM 
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CALL: Foo 

Page y 



ShortLoop = 1? 



yes 




V 
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Label: 



V 
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RETURN 



figure 10 



TASK 



[[breakpoint] 



figure 14 



Set up variable X 
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±_ 



mumble 
Page X 



NOTIFY 



END 
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figure 12 



figure 16 



Standard Flow Chart Symbols 



A8 • 



a9.mc 



28-Feb-80 12:49:36 



MicroD 8.6 (OS 16) of April 27 ^ 1979 
at 20-Feb-80 8:22:11 

microd . run EDCym 



EDCym.DIB 561b instructions written 20-Feb-80 8:21:02 

Total of 561b instructions 

Checking for errors. . . 
Linking . . . 

Building allocation lists... 
Assigning locations . . . 

561b instructions in rings involving ONPAGE or AT 
Reloading binaries. . . 
Checking assignment... 
Writing .MB file. . . 
Writing 1 isting . . . 



IM: 



Imag Real 



WO 



Wl W2 Symbol 














EDCym. 


DIB: 











1404 


22005 


107060 15 


GO START 


1 


1530 


22320 


101057 15 


( + 1) 


2 


1527 


22001 


123055 11 


( + 2) 


3 


1526 


22323 


115053 11 


(+3) 


4 


1525 


47 


7051 1 


(+4) 


5 


1524 


20020 


101046 11 


( + 5) 


6 


1523 


20020 


101044 1 


(+6) 


7 


1522 


10020 


101043 11 


(-7) 


10 


1521 


10020 


101041 15 


(+10) 


11 


1520 


12020 


101037 1 


( + 11) 


12 


1517 


12020 


101035 5 


( + 12) 


13 


1516 


12020 


101033 11 


( + 13) 


14 


1515 


12020 


101031 15 


( + 14) 


15 


1514 


10004 


101026 5 


( + 15) 


16 


1513 


10320 


105024 5 


( + 16) 


17 


1512 


50 


25023 1 


( + 17) 


20 


1401 


47 


5023 


BIGLOOP 


21 


1411 


21050 


125020 


( + 1) 


22 


1410 


20150 


65017 4 


(+2) 


23 


1407 


21450 


25015 


(-3) 


24 


1406 


50 


24205 


(+4) 


25 


1403 


50 


25023 1 


(+5) 


26 


b 1402 


50 


25012 


PASSED-EDCYM-TEST 


27 


1405 


20020 


101022 1 


(-1) 


30 


1511 


22020 


101020 1 


MAINLOOP 


31 


1510 


22020 


101017 5 


( + 1) 


32 


1507 


21050 


125015 11 


(+2) 


33 


1506 


50 


24002 


(+3) 


34 


1400 


22150 


65013 15 


(-4) 


35 


1505 


23174 


45010 15 


(+5) 


36 


1504 


23174 


67007 15 


(+6) 


37 


1503 


23150 


65004 11 


( + 7) 


40 


1502 


22050 


125003 15 


( + 10) 


41 


1501 


22000 


103001 1 


SETVARS 


42 


1500 


22165 


67177 14 


( + D 


43 


1477 


24050 


125174 C 


(+2) 


44 


1476 


20150 


65172 


(+3) 


45 


1475 


23150 


65171 14 


(+4) 


46 


1474 


24050 


125167 4 


(+5) 


47 


1473 


10150 


65164 4 


(+6) 


50 


1472 


26050 


125162 14 


( + 7) 



EDCym. report ll-Feb-80 11:35:46 

********** START EDCym Test :31-Dec-00 16:59:18 PST*************** 

Passed EDCym Test :31-Dec-00 16:59:32 PST - 

Passed EDCym Test :31-Dec-00 16:59:38 PST 

Passed EDCym Test :31-Dec-00 16:59:45 PST 



*** FAILed: at my Breakpoint 

* Result does not equal to myResult 

' Result =1037 

' myResult =0 

' SUBTEST = 4 

' PASSCOUNT -0 



*** FAILed: Not at my breakpoint 

' Parity =0 

' CIA =7777 

' CTASK =16 

* APCTASK =0 

' APC =1037 

1 TPC =7777 



Passed EDCym Test :31-Dec-00 17:00:04 PST- 



A10 



Standard A Column 



A 







12 
14 



PARITY 9 

CYCLE CONTROL 43 



© 


17 

17 

1037 

377 



6 





PCXREG 

PCFREG 

DBREG 

SBREG 

MNBR 

SSTKP 

STKP 
+ALURESULT 
10 SALUF 
>T 20 2 

AATOVA 

TPC 20 7777 

CALLER ILCa+7217 

PAGE 3 

16 APC 7011 

APCTASK 16 
1g *CA8SED-EDCVM-TEST 
^ CTASK 




Standard ED Midas Registers 



REVISION 
RUN-TIME 
*P ASS COUNT 
MAX PASS 
SUBTEST • 




Communications Registers 



COMM-ER0 

COMM-ER1 

C0MM-ER2 

BOOT-ERR 

BOO TREASON 

MEMSYNDROME 



*XA 
+FNUM 
* OPERAND 



162505 *MYRESULT 
345 *RESULT 

162506 *APCRESULT 



INNERLOOPCOUN *CS0 

*CS1 
*CS2 
+LOFTEST 6777 *CSP 
+DISPATCHTEST 72OO0 
+LSHTEST 17000 
+LCYTEST 16777 
+LHMASKTEST 1000 
+ZEROTEST 1000 



3HORTLOOP 

User Definable Registers 



Loaded: EDCYM 

Resume 0:GO+1, BP at O : PASSED-EDCYM-TEST 



y 







40 

177757 



16 

16 

1037 

14176 

113002 

5 

70405 



Time: 05,89 
EDCyM Program Registers 



Evir. Bnnr. Run-Proq Read-Cmds Break UnBreak ClrAddedBPs ClrAll&Ps ShowBPs 
SS Continue Load LdSyrns Compare Test-All Test Dump Show-Crnds Write-Urnds 
Virtual 
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*** *** *«* *** *** 



<D0D1ag>Edalu.mc Rev 1 1/8/80 



*** «*« **• **« *•* 



♦a************************************************************************************** 
*** EDALU.mc : Central -data-paths-exerciser microcode 

*** Purpose : This test exercises some basic functions of the ALU module. 
*** Hardware Configuration : Standard 4 CPU boards. 
*** Written by : (unknown) 
*** Modified by : C. Thacker, June 16, 1979 
*** Modified by : M. Thomson & J. Kellman, Jan. 8, 1979 
Standardize title page and code format. 

a*************************************************************************************** 



•♦•a************************************************************************************ 

* SubTest Description: 

* Subtests are Indicated in the flow charts and .mc file by: 

* 1) Mcount (in octal) 

* 2) Mpanel (in decimal) 

**************************************************************************************** 

* Subroutine Description: 

* compareO: Compares contents of sO (R file) with T 

* poptst: Checks the contents of the stack after 1t has been loaded by push operations 

* TchkR: Takes pattern in T, break points if discrepancy is found 

* TfUlR: Write pattern 1n T from Rmax through Rmin in R file 

a,**^*******^*******^******************* ************************************************* 

* Breakpoints: 

* Achkfler: Value 1n R did not match R address. 

* badnotify: Task failed to switch. 

* fall: Value in sO (R file) did not match value 1n T. 

* TchkRerO: Value in si (R file) did not match value 1n T. 

* TchkRerl: Value in sO (R file) did not match value in T. 

* TchkRer2: Value in stack did not match stack address. 

* TfillRer: Value in si (R file) did not match value in T. 

* Passed-EDALU-Test: the system passed thru all the passes of EDALU. 

**************************************************************************************** 

* Breakpoint Logic Analyzer Sync Points: 

* AchkRer: Control Store address 415 

2555 

3 
407 
405 
403 
525 



badnotify: Control Store address 

Control Store address 

Control Store address 

Control Store address 

Control Store address 

Control Store address 



fail: 

TchkRerO 

TchkRerl 

TchkRer2 

TfillRer 



Passed-EDALU-Test: Control Store address 



1000 



********«>•**••******************************************************************•******* 
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**************************************************************************************** 

* INITIALIZATION: 

BUILTIN[INSERT,24]; 

INSERT[d01ang]; 

TITLE[Central -data-pat hs-exerdser]; 

********** Set constants: ***•****••* 

*** Code to page allocation: *** 

*** Page *** *** principal entry points *** 

SET[Rpage, 1]; * stktst. Hone, flzero, TflllR, TchkR, AfillR, AchkR 

SET[pushpage, 2]; * pushl, pushml. push2, pushm2, push3, pushmd 

SET[popxpage, 3]; * poptst extension: pop3, popm3 

SET[poppage, 4]; * poptst: popl, popml, pop2e, pop2o, popm2e, popm2o 

SET[a1upage, 5]; * go, contst, acontst, alutst 

********** Macr0 definitions: *•*•*** 
M@[ones. (ZERO)-IJ; 

* compares sO with T, break point results 1f the two are not equal 
M@[ compare, 

IFG@[10,FVAL@[PGE9], 
SELECT9[FVAL0[PGEQ]. cal l[compare0] , call[comparel], call[compare2], 

call[compare3], call[compare4], call[compar95], call[compare6], 

call[compare7]] f 
SELECT@[SUB[FVAL@[PGE9], 10], cal l[comparelO] , cal l[comparell] , 

cal1[comparel2], cal l[comparel3] , call[comparel4], call[comparel5], 

call[comparel6], call[comparel7]]]]; 

********** Macro constants: **•***••* . 

MC[Rmin, 20]; * First R location tested 

MC[Rmax, 317]; * Last R location tested 

MC[faul tTrapLoc, 0]; * special control store locations used by hardware 
MC[bootTrapLoc, I]; 

********** R-reqisters: ************* 

RV[s0, 0]; * R store temporaries 

RV[sl, 1]; 

RV[rt. 2]; * stack test iterations count 

RV[oldapc, 3]; * holds return address during poptst 

RV[ revision ,4, 1]; * revision number is 1 for this program 

RV[Mcount.5 j; * octal equivalent of maintenance panel display 

RV[Run-time,6,ll]; * run time for this test is 9 seconds 

RV[PassCount,7,0]; * pass count for this program 

RV[MaxPass, 10,1000]; * maximum number of passes for this run 

a*************************************************************************************** 
*** PRELIMINARY routine: 

SET[sTestBase,lshift[alupage,10]]; 
MC[sTestTask,add[sTestBase, 150000]]; 
MC[sTestBC,sTestBase]; 

ON PAGE[alupage]; 

start: 

go: clearMpanel; Mcount *■ ZERO; * initialize Mpanel to 0000, Mcount to 0000 

sO *■ sTestBC; 

APCtask^APC <- sO; 

return; * generate task switch 

badnotify: breakpoint, goto[go]; * should never reach here 

* set tasks 1-15 to breakpoint if awakened 

TO: sO ♦■ sTestTask, at[sTestBC! ]; * task 15 
sO «- (sO) or (20C); 
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bwnotify: apc&apctask «- sO; 
return; 

sO «■ (sO) - (10000C), at[add[sTestBase,31]]; 'notify returns to here 

LU «• ldf[s0.0,4]; 

clblgoto[bwnotify,TtoR.alu#0]; 

bwnot: s;l «- sTestBC,call[xret], at[add[sTestBase,20]]; 
badwake: usectask; 

T «- apc&apctask; 

breakpoint, goto[go]; 

return; 

xret: si «• (si) or (31C); 
apc&apctask «- si; 
return; 

* guaranteed to be in task now 

******** * ******************************************************************************* 
*** MAIN routine: 

* try the T pass around path 

TtoR: incMpanel, Mcount *■ (Mcount) + 1; * increment Mpanel to 0001, Mcount to 0001 

sO «• T «- 0C; 
T <- 377C; 
SO *- T; 
compare; 

* try the R pass around path 

RtoT: incMpanel, Mcount ♦• (Mcount) + 1; * increment Mpanel to 0002, Mcount to 0002 

s;0 ♦• T «- 0C; 
sO «- 377C; 

T «■ sO; 
compare; 

* test constants from micro instruction 

contst: incMpanel, Mcount *• (Mcount) + 1; * increment Mpanel to 0003, Mcount to 0003 



<i0 «- 


ZERO) 




T 


«- 


OC; 


compare; 


sO ♦* 


ZERO) 


+ 1 


T 


*- 


1C; 


compare; 


sO «- 


sO) 


+ 


(T) 


T 


*- 


2C; 


compare; 


sO «- ( 


SO) 


+ 


(T) 


T 


4- 


4C; 


compare; 


sO - { 


sO) 


+ 


(T) 


T 


4- 


IOC; 


compare; 


sO ♦■ { 


sO) 


+ 


(T) 


T 


«- 


20C; 


compare; 


sO «- 


sO) 


+ 


(T) 


T 


«- 


40C; 


compare; 


«0 ♦■ 


SO) 


+ 


(T) 


T 


♦- 


100C; 


compare; 


sO «- I 


sO) 


+ 


(T) 


T 


«- 


200C; 


compare; 


a0 «- { 


SO) 


+ 


(T) 


T 


♦- 


400C; 


compare; 


sO *- 


SO) 


+ 


(T) 


T 


*- 


1000C; 


compare; 


sO «- 


SO) 


+ 


(T) 


T 


«- 


2000C; 


compare; 


sO ♦■ 


sO) 


+ 


(T) 


T 


«- 


4000C; 


compare; 


sO <- 


sO) 


+ 


(T) 


T 


4- 


10000C; 


compare; 


sO *■ 


,s0) 


+ 


(T) 


T 


♦- 


200"00C; 


compare; 


sO «- 


r s0) 


+ 


(T) 


T 


♦• 


40000C; 


compare; 


sO ♦■ 


[sO) 


+ 


(T) 


T 


♦- 


100000C;' 


compare; 



* test the basic ALU operations 
alutst: incMpanel, Mcount «- (Mcount) + 1; * increment Mpanel to 0004, Mcount to 0004 



sO «- ZERO; 
T «• OC ; • . 
compare; 

sO •• OC; 

si «- T «• ones; 

T «- (ZERO) + (T) + 1; 

compare; 



* test cycler/masker function ZERO 



* test (ZERO) - 1 

* set si to all ones for subsequent tests 



aluO: 



incMpanel, Mcount ♦• (Mcount) + 1; * increment Mpanel to 0005, Mcount to 0005 
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T ♦• ones; * 1 from T 

sO «- T; 

compare; 

T «- OC; * from T 

sO «- T; 

compare; 

alul: incMpanel, Mcount «- (Mcount) + 1; * Increment Mpanel to 0006, Mcount to 0006 

sO «- 0C; 

T *■ sO; * from R 

compare; 

sO «- ones; * 1 from R 

T ♦• sO; 

compare; 

alu2: incMpanel, Mcount «- (.Mcount) + 1; * increment Mpanel to 0007, Mcount to 0007 

T «- 0C; T *■ (ZERO) and (T); • and 

sO «■ 0C; compare; 

T «- ones: T «■ (ZERO) and (T); * and 1 

sO *• 0C; compare; 

T <- 0C; T «- (si) and (T); • 1 and 

sO «- OC; compare; 

T «- ones; T «- (si) and (T); * 1 and 1 

sO «■ ones; compare; 

alu3 : incMpanel, Mcount «- (Mcount) + 1; * Increment Mpanel to 0008, Mcount to 0010 

T ♦• OC; T «- (ZERO) or (T); * or 

sO «- OC; compare; 

T - ones; T «- (ZERO) or (T); * or 1 

sO ♦• ones; compare; 

T «- OC; T «• (si) or (T); * 1 or 

sO «- ones; compare; 

T «• ones; T «■ (si) or (T); * 1 or I 

sO *■ ones; compare; 

alu4: incMpanel, Mcount ♦■ (Mcount) + 1; * increment Mpanel to 0009, Mcount to 0011 

T «- 0C; T «- (ZERO) xor (T); * xor 

sO ♦• OC; compare; 

T - ones; T «- (ZERO) xor (T); * xor 1 

sO «- ones; compare; 

T «• OC; T *■ (si) xor (T); * 1 xor 

sO ♦■ ones; compare; 

T <- ones; T *■ (si) xor (T); * 1 xor 1 

sO ♦• OC; compare; 

alu5: incMpanel. Mcount «- (Mcount) + 1; * increment Mpanel to 0010, Mcount to 0012 

T «• 0C; T «• (ZERO) andnot (T); * andnot 

sO ♦- 0C; compare; 

T *■ ones; T «- (ZERO) andnot (T); * andnot 1 

sO «- 0C; compare; 

T *- OC; T «• (si) andnot (T); * 1 andnot 0' 

sO *• ones; -compare"! 

T *■ ones; T ♦- (si) andnot (T); • 1 andnot 1 

sO «- OC; compare; 

alu6: incMpanel, Mcount ♦• (Mcount) + 1; * increment Mpanel to 0011. Mcount to 0013 



EDALU.mc 13-Mar-80 11:09:40 ' Page 5 



T «- 0C; T «- (ZERO) ornot (T); * ornot 

sO «■ ones; compare; 

T «- ones; T «- (ZERO) ornot (T); * ornot 1 

sO «- OC; compare; 

T <- OC; T «■ (si) ornot (T); * 1 ornot 

sO «• ones; compare; 

T «- ones; T ♦• (si) ornot (T); * 1 ornot 1 

sO «• ones; compare; 

alu7: IncMpanel, Mcount ♦■ (Mcount) + "1; * increment Mpanel to 0012, Mcount to 0014 

T «- 0C; T «- (ZERO) xnor (T); * xnor 

sO «• ones; compare; 

T <- ones; T «- (ZERO) xnor (T); * xnor 1 

sO *• 0C; compare; 

T «■ 0C; T «- (si) xnor (T); • 1 xnor 

sO *• 0C; compare; 

T «- ones; T «- (si) xnor (T); * 1 xnor 1 

sO «- ones; compare; 

LOAD PAGE[Rpage]; 
C|Otop[stktst]; 

mm******************** •*********•+ **•********•**********+***************** ************** 

ON PA6E[Rpage]; 

" try the stack pointer » 

stktst: iincMpanel, Mcount *- (Mcount) + 1; * Increment Mpanel to 0013, Mcount to 0015 

T ♦- s0 «- Rmax; 

stkp ♦■ sO; 

T ♦• stkp; 

si ♦■ 377C; 

T *■ (sl) and (T); 

T *■ (sl) xor (T); * stkp comes back complemented 

compare; 

* exercise the entire R store access through the stkp 

flone: T «- 0C; call[Tfi11R]; * increment Mpanel to 0014, Mcount to 0016 

T «■ 0C; call[TchkR]; 

T «• 1C; call[TfillR]; * increment Mpanel to 0015, Mcount to 0017 

T «• 1C; call[TchkR]; 

T ♦■ 2C; call[Tf illR]; * increment Mpanel to 0016, Mcount to 0020 

T «- 2C; call[TchkR]; 

T *■ 4C; call[Tf illR]; * increment Mpanel to 0017, Mcount to 0021 

T «- 4C; call[TchkR]; 

T «- 10C; call[TfillR]; * increment Mpanel to 0018, Mcount to 0022 

T «- 10C; call[TchkR]; 

T ♦■ 20C; call[TfillR]; * increment Mpanel to 0019, Mcount to 0023 
T «-. 20C; call[TchkR]; 

T ♦- 40C; call[TfillR]; * increment Mpanel to 0020, Mcount to 0024 
T «- 40C;. call[TchkR]; 

T *■ 100C; call[TfillR]; * increment Mpanel to 0021, Mcount to 0025 
T ♦• 100C; call[TchkR]; 

T *■ 200C; call[Tf illR]; * increment Mpanel to 0022, Mcount to 0026 
T •■ 200C; call[TchkR]; 

T «- 400C; call[TfillR]; * increment Mpanel to 0023, Mcount to 0027 
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T 


t- 


400C; 


ca 


HI 


[TchkR]; 


















T 

T 


*• 


1000C; 
1000C; 


ca 
ca 


111 
HI 


"TfillR]; * 
TchkR]; 


increment 


, Mpanel to 


0024, 


Mcount to 0030 








T 
T 




2000C; 
2000C; 


cal1{ 
call) 


TfillR]; * 
iTchkR]; 


increment Mpanel to 


0025, 


Mcount to 0031 








T 
T 




4000C; 
4000C; 


call[TfillR]; * 
call[TchkR]; 


Increment Mpanel to 


0026, 


Mcount to 0032 








T 
T 


4- 
4- 


10000C; 
10000C; 


ca 
ca 


HI 
HI 


'TfillR]; * 
"TchkR]; 


increment Mpanel to 


0027, 


Mcount to 0033 








T 
T 


*• 


20000C; 
20000C; 


call | 
call 


■TfillR]; • 
;TchkR]; 


increment Mpanel to 


0028, 


Mcount to 0034 








T 
T 


4- 


40000C; 
40000C; 


ca 
ca 


HI 
ill| 


"TfillR]; * 
"TchkR]; 


increment Mpanel to 


0029, 


Mcount to 0035 








T 
T 




100000C; 
100000C; 


call| 
call 


"TfillR]; * 
|TchkR]; 


increment Mpanel to 


0030, 


Mcount to 0036 








Izero: T 
T 


4- 


OC; 
OC; 


T 

T 


4- 
4- 


ZERO) ornot i 
ZERO) ornot i 


T); 


cal 
call 


[TfillR]; 
[TchkR]; 


* incr. 


Mpanel to 0031, 


Mcount 


to 


0037 


T 
T 


*• 


1C; 
1C; 


T 
T 


4- 
4- 


ZERO) ornot i 
ZERO) ornot i 


T): 
T); 


cal 
call 


[TfillR]; 
[TchkR]; 


* incr. 


Mpanel to 0032, 


Mcount 


to 


0040 


T 
T 


4- 

*• 


2C; 
2C; 


T 

T 


4- 

4- 


(ZERO) ornot 
ZERO) ornot 


T): 

T); 


call 
call 


[TfillR]; 
[TchkR]; 


* incr. 


Mpanel to 0033, 


Mcount 


to 


0041 


T 
T 


4- 


4C; 
4C; 


T 
T 


4- 
4- 


ZERO) ornot 
ZERO) ornot 


T); 
T); 


cal" 
call 


[TfillR]; 
[TchkR]; 


* incr 


Mpanel to 0034, 


Mcount 


to 


0042 


T 
T 


4- 


IOC; 
IOC; 


T 
T 


4- 

*■ 


ZERO) ornot 
ZERO) ornot 


T); 

T); 


cal 
call 


[TfillR]; 
[TchkR]; 


* incr 


Mpanel to 0035. 


Mcount 


to 


0043 


T 
T 


4- 
4- 


20C; 
20C; 


T 
T 


4- 
4- 


(ZERO) ornot 
ZERO) ornot 


T); 


caV 
cal" 


[TfillR]; 
[TchkR]; 


* incr 


Mpanel to 0036, 


Mcount 


to 


0044 


T 

T 


4- 
4- 


40C; 
40C; 


T 
T 


4- 
4- 


(ZERO) ornot ( 
;ZERO) ornot 


T); 


cal 
cal' 


[TfillR]; 
[TchkR]; 


* incr 


Mpanel to 0037, 


Mcount 


to 


0045 


T 
T 


*- 
4- 


100C; 
100C; 


T 
T 


4- 
4- 


(ZERO) ornot 
;ZERO) ornot 


T): 
J); 


cal" 
cal 


[TfillR]; 
[TchkR]; 


* incr 


Mpanel to 0038, 


Mcount 


to 


0046 


T 
T 


4- 


200C; 
200C; 


T 
T 


4- 
4- 


[ZERO) ornot 
[ZERO) ornot 


T); 
J); 


cal 
cal 


[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0039, 


Mcount 


to 


0047 


T 
T 


4- 

4- 


400C; 
400C; 


T 

T 


4- 
4- 


(ZERO) ornot 
[ZERO) ornot 


T); 


cal 
cal 


1 [TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0040, 


Mcount 


to 


0050 


T 
T 


4- 
4- 


1000C; 
1000C; 


T 
T 


4- 
4- 


[ZERO) ornot 
[ZERO) ornot 


[T); 
T); 


cal 
cal 


l[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0041, 


Mcount 


to 


0051 


T 
T 


4- 
4- 


2000C; 
2000C; 


T 
T 


4- 
4- 


(ZERO) ornot 
[ZEROJ ornot 


(T); 

(T); 


cal 
cal 


l[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0042, 


Mcount 


to 


0052 


T 
T 


4- 
4- 


4000C; 
4000C; 


T 
T 


4- 
4- 


[ZERO) ornot 
[ZERO) ornot 


C'T): 


cal 
cal 


1[TfilTR-]u 
1 [TchkR];,; 


* incr 


Mpanel to 0043, 


Mcount 


to 


0053 


T 
T 


4- 
*- 


10000C; 
10000C; 


T 

T 


4- 
4- 


(ZERO) ornot 
[ZERO) ornot . 


(T); 


cal 
cal 


l[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0044, 


Mcount 


to 


0054 


T 
T 


4- 
4- 


20000C; 
20-000C; 


T 
T 


4- 


(ZERO) ornot 
[ZERO) ornot 


(T): 
[T); 


cal 
cal 


l[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0045, 


Mcount 


to 


0055 


T 
T 


4- 
4- 


40000C; 
40000C; 


T 
T 


4- 

4- 


(ZERO) ornot 
(ZERO) ornot 


(T); 

T); 


cal # 
cal 


l[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0046, 


Mcount 


to 


0056 


T 
T 


4- 


100000C; 
100000C; 


T 
T 


4- 
4- 


(ZERO) ornot 
(ZERO) ornot 


(T); 

!T); 


cal 
cal 


l[TfillR]; 
l[TchkR]; 


* incr 


Mpanel to 0047, 


Mcount 


to 


0057 



* write address in contents all through R 
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AfillR: incMpanel. Mcount «• (Mcount) + 1; • increment Mpanel to 0048, Mcount to 0060 

sO «• T «• Rmax; 
AfillRl: stkp ♦■ sO; 
stack «• T; 
sO ♦■ T «- (sO)-l; 
LU «- (sO) - (Rmin); 
goto[AfillRl, ALU>-0]; 

* check that address is in contents all through R 

AchkR: sO «* T «• Rmax; 
AchkRl : stkp ♦• sO; 

LU «- (stack) # T; 

gioto[.+2, ALU*0]; 
AchkRer: breakpoint; * contents do not match address 

sO «- T «- (sO)-l; 

LU - (SO) - (Rmin); 

goto[AchkRl . ALU>»0]; 

LOAD PAGE[pushpage]; 
C)Otop[pushl]; 

,.,.***«,« start SUBROUTINE: TfillR •••••••••• 

* write pattern in T from Rmax through Rmin in R store, increment Mpanel and Mcount 

* sO holds address 

* si holds pattern 

TfillR: incMpanel, Mcount ♦• (Mcount) + 1; 

si «• T; 

LU «• (si) # T; 

goto[.+2. ALU=0]; 
TfillRer: breakpoint, goto[.-3]; * pattern and T disagree 

sO «- Rmax; 
TfillR! : stkp ♦■ sO; 

stack ♦• T; 

sO ♦• (sO) - 1; 

LU - (sO) - (Rmin); 

goto[TfillRl, ALU>=0]; 

T •• sl; 

sO ♦■ T, return; 



«,*,,,»*,• start SUBROUTINE: TchkR •*****••** 

* takes pattern in T, break points if discrepency 1s found 

TchkR: LU «- (sl) # T; * special check on pattern 
* goto[.+2, ALU>0]; 
TchkRerO: breakpoint; * pattern and T disagree nrTlin „ , w ,. 

LU *■ (sO) # T; • • * TfillR put the pattern in SO as part of a RETURN (checks 

* that R writes are done properly across TASK switches) 

goto[.+2. ALU-0]; 
TchkRerl: breakpoint; 

sO *• Rmax; 
TchkRl : stkp ♦■ sO; * stkp loaded from ALUA, sigh 

LU «- (stack) # T; 

goto[.+2, ALU-0]; 
TchkRerZ: breakpoint; * pattern does not match R 

sO «- (sO) -1; 

LU ♦• (sO) - (Rmin); 

goto[TchkRl . ALU>»0]; 

return; 

»»»'»***«*«»•**•••****•**••*****•**•»**•*•****•*•*•••*•**•******••*•*******•**■*********** 

ON PAGE(;pushpage]; * "" i 

* test stack push and pop operations 

pushl: T «- ones; 

LOAD PAGE[Rpage]; 
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callp[TmiR]; 

50 ♦• 37C; stkp «- sO; 
si ♦- T <- 20C; 

rt «- 17C; 

pushll: (stack&+l) «- T; 

51 «• T «■ (si) + 1; 
rt «- (rt) - 1; 
goto[pushn. ALU>>0]; 

LOAD PAGE[poppage]; 
ca11p[poptst]; 



* initialize area to -1, increment Mpanel to 0049 and Mcount to 0061 

* use regs. 20-37 for this test (inlt. to 37 for increment to 20) 

* starting data (to be stored 1n address 20) 

* iterations count for 20 iterations 

* store data 1n Incremented stack (will Increment mod. 20) 

* increment data to be stored 

* decrement iterations count 



* check proper contents 



pushml: T *- ones; 

LOAD PAGE[Rpage]; 
cal1p[Tf111R]; 

sO «- 20C; stkp ♦■ s0; 
sl «• T ♦• 37C; 
rt «- 17C; 

pushmll: (stack&-l) «• T; 

sl •■ T - (sl) - 1; 
rt *• (rt) - 1; 
goto[pushmll, ALU>*0]; 

LOAD PAGE[poppage]; 
callp[poptst]; 



* initialize area to -1, Increment Mpanel to 0050 and Mcount to 0062 

* use regs. 37-20 for this test (1nit. to 20 for decrement to 37) 

* starting data (to be stored in address 37) 

* Iterations count for 20 Iterations 

* store data 1n decremented stack (will decrement mod. 20) 

* decrement data to be stored 

* decrement iterations count 



check proper contents 



push2: T «• ones; 

LOAD PAGE[Rpage]; 
ca1lp[Tf1llR]; 

sO ♦■ 36C; stkp «- sO; 
sl «- T «- 20C; 
rt «- 7C; 

pushZle: (stack&+2) ♦• T; 

sl «- T ♦• (sl) + (2C); 
rt «- (rt) - 1; 
goto[push21e, ALU>»0]; 

sO «- 37C; stkp <- sO; 
Sl «- T <- 21C; 
rt «• 7C; 

push21o: (stack&+2) ♦• T; 

sl «■ T «- (sl) + (2C); 
rt <- (rt) - 1; 
goto[push21o, ALU>»0]; 

LOAD PAGE[poppage]; 
callp[poptst]; 



* initialize area to -1, increment Mpanel to 0051 and Mcount to 0063 

* use even regs. 20-36 for this test (init. to 36 for increment to 20) 

* starting data (to be stored in address 20) 

* iterations count for 10 iterations 

* store data in incremented stack (will increment mod. 20) 

* increment data to be stored 

* decrement iterations count 



* use odd regs. 21-37 for this test (inlt. to 37 for increment to 21) 

* starting data (to be stored in address 21) 

* iterations count for 10 iterations 

* store data in incremented stack (will increment mod. 20) 

* increment data to be stored 

* decrement iterations count 



* check proper contents 



pushm2: T «- ones; 

LOAD PAGE[Rpage]; 
callp[TfillR]; 

sO «- 20C; stkp '«- sO; 
sl «- T ♦- 36C; 
rt «- 7C;. 

pushm21e: (stack&-2) «- T; 

sl <- T «- (sl) - (2C); 
rt «• (rt) - 1; 
goto[pushm21e, ALU>»0]; 

sO «- 21C; stkp ♦■ sO; 
sl «■ T ♦■ 37C; 



* initialize area to -1, Increment Mpanel to 0052 and Mcount to 0064 

* use even regs. 36-20 for this test (init. to 20 for decrement to 36) 

* starting data (to be stored in address 36) 

* iterations count for 10 iterations 

* store data in decremented stack (will decrement mod. 20) 

* decrement data to be stored 

* decrement iterations count 



* use odd regs. 37-21 for this test (init. to 21 for decrement to 37) 

* starting data (to be stored in address 37) 
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rt ♦• 7C; 



* Iterations count for 10 Iterations 



pushm21o: (stack&-2) «• T; * store data 1n decremented stack (will decrement mod. 20) 

si «• T ♦■ (si) - (2C); * decrement data to be stored 

rt «- (rt) - 1; * decrement iterations count 
goto[pushm21o, ALU>»0]; 



LOAD PAGE[poppage]; 
cal1p[poptst]; 



* check proper contents 



push3: T *- ones; 

LOAD PAGE[Rpage]; 
callp[TfillR]; 

sO *■ 35C; stkp «- sO; 
si <- T <- 20C: 
rt «• 17C; 

push31: (stack&+3) «- T; 

si «- (si) + (3C); 
si «- (si) and (17C); 
si «■ T «- (si) + (20C); 

rt «• (rt) - 1; 
goto[push31 . ALU>«0]; 

LOAD PAGE[poppage]; 
ca11p[poptst]; 



* initialize area to -1, increment Mpanel to 0053 and Mcount to 0065 

* use reg's. 20-37 for this test (1nit. to 35 for increment to 20) 

* starting data (to be stored in address 20) 

* iterations count for 20 iterations 

* store data 1n incremented stack (will Increment mod. 20) 



* data incremented by 3's (mod. 20) 

* decrement Iterations count 

* check proper contents 



pushm3: T *■ ones; 

LOAD PAGE[Rpage]; 
callp[TfillR]; 

sO «- 20C; Stkp «- sO; 
si «- T «• 35C; 
rt «■ 17C; 

pushm31: (stack&-3) «- T; 

si «- (si) - (3C); 
si «- (si) and (17C); 
si - T «- (si) + (20C); 

rt «■ (rt) - 1; 
goto[pushm31 , ALU>«0]; 

LOAD PAGE[poppage]; 
ca11p[poptst]; 



* initialize area to -1, increment Mpanel to 0054 and Mcount to 0066 

* use regs. 37-20 for this test (init. to 20 for decrement to 35) 

* starting data (to be stored in address 35) 

* iterations count for 20 iterations 

* store data in decremented stack (will decrement mod. 20) 

* data decremented by 3's (mod. 20) 

* check proper contents 



PassCount «- (PassCount) + 1; * increment pass count 

T ♦• MaxPass; 

lu ♦■ (PassCount) - (T); 

goto[.+3,ALU>»0]; " •..finished all passes? 

LOAD PAGE[alupage]; - "~-- : 

gotop[go]; "" "" _;... 

Passed-EDALU-Test: PassCount *■ 0C, breakpoint; 

LOAD PAGE[alupage]; 
gotop[go]; 

**************************************************************************************** 

ON PAGE[poppage]; 

*••••••••• start SUBROUTINE: poptst *•*•***•** 



poptst: ysectask; 

T *- apc&apctask; 
oldapc «- T; 



• save the return address 
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popl: 



popml: 



pop2e: 



popZo: 



s0 «• 20C; 








stkp «- s0; 








T «- (stack&+l); 


* retrieves a 


compare; 








sO «- 21C; 


T «- 


(stack&+l); 


compare; 


sO <- 22C; 


T «• 


(stack&+l); 


compare; 


sO «■ 23C; 


T •■ 


(stack&+l); 


compare; 


sO <- 24C; 


T «- 


(stack&+l); 


compare; 


sO «- 25C; 


T «■■ 


(stack&+l); 


compare; 


sO «■ 26C; 


T ♦- 


(stack&+l); 


compare; 


sO «- 27C; 


T «• 


(stack&+l) ; 


compare; 


SO «- 30C; 


T «- 


(stack&+l); 


compare; 


sO «- 31C; 


T «■ 


(stack&+l); 


compare; 


SO <- 32C; 


T «- 


(stack&+l); 


compare; 


sO «- 33C: 


T ♦■ 


(stack&+l); 


compare; 


sO «- 34C; 


T «• 


(stack&+l) ; 


compare; 


sO «- 35C; 


T •■ 


(stack&+l); 


compare; 


SO «• 36C; 


T «■ 


(stack&+l); 


compare; 


sO «- 37C; 


T *■ 


(stack&+l); 


compare; 


sO •■ 20C; 


T *■ 


(stack&+l); 


compare; 


sO - 20C; 








stkp «• sO; 








T «- (stack&-l); 






compare; 








sO «- 37C; 


T «- 


(stack&-l); 


compare; 


sO ♦• 36C; 


T «- 


(stack&-l); 


compare; 


sO •• 35C; 


T «■ 


(stack&-l); 


compare; 


sO «- 34C; 


T «- 


(stack&-l); 


compare; 


sO «- 33C; 


T - 


(stack&-l) ; 


compare; 


sO «• 32C; 


T «■ 


(stack&-l) ; 


compare; 


sO «- 31C; 


T «■ 


(stack&-l) ; 


compare; 


SO «• 30C; 


T - 


(stack&-l); 


compare; 


sO «- 27C; 


T «- 


(stack&-l) ; 


compare; 


sO «- 26C; 


T - 


(stack&-l) ; 


compare; 


sO «- 25C; 


T «- 


(stack&-l); 


compare; 


SO - 24C; 


T - 


(stack&-l); 


compare; 


sO *■ 23C; 


T *■ 


(stack&-l); 


compare; 


sO «■ 22C; 


T - 


(stack&-l) ; 


compare; 


sO - 21C; 


T «- 


(stack&-l) ; 


compare; 


sO «- 20C; 


T «- 


(stack&-l); 


compare; 


SO «• 20C; 








stkp *■ sO 








T «- (stack&+2) 






compare; 








sO «• 22C; 


T ♦• 


(stack&+2); 


compare; 


sO «■ 24C; 


T «- 


(stack&+2); 


compare; 


sO «- 26C; 


T «- 


(stack&+2); 


compare; 


sO «• 30C; 


T «- 


(stack&+2); 


compare; 


sO *■ 32C; 


T «• 


•(stack&+2); 


compare; 


sO •• 34C; 


T «- 


(stack&+2); 


compare; 


sO +• 36C; 


T *■ 


(stack&+2); 


compare; 


sO *■ 20C; 


T *■ 


(stack&+2); 


compare; 


SO «■ 21C; 








stkp *■ sO 








T *■ (stack&+2) 


9 




compare; 








sO <- 23C; 


T «- 


(stack&+2); 


compare; 


sO «■ 25C; 


T «- 


(stack&+2) : 


compare; 


sO «• 27C; 


T 4- 


(stack&+2); 


compare; 


sO «■ 31C; 


T ♦■ 


(stack&+2); 


compare; 


sO «- 33C; 


T «- 


(stack&+2) ; 


compare; 


sO «- 35C; 


T «■ 


(stack&+2); 


-compare; 


SO «■ 37C; 


T «■ 


(stack&+2); 


compare; 


sO «■ 21C; 


T «- 


(stack&+2); 


compare; 



popm2e: sO «- 20C; 
stkp «■ sO; 
T ♦■ (stack&-2); 
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compare; 






sO «- 36C; 


T <- (stack&-2); 


compare; 


sO «■ 34C; 


T «• (stack&-2); 


compare; 


s;0 <- 32C; 


T <- (stack&-2); 


compare; 


s;0 «- 30C; 


T «■ (stack&-2); 


compare; 


SiO «- 26C; 


T ♦• (stack&-2); 


compare; 


sO «■ 24C; 


T «- (stack&-2); 


compare; 


SiO «- 22C; 


T «■ (stack&-2); 


compare; 


SO «■ 20C; 


T «■ (stack&-2); 


compare; 


popm2o: sO «- 21C; 






stkp «- sC 


>; 




T «- (stack&-2); 




compare; 






sO «- 37C 


T «• (stack&-2); 


compare; 


sO «- 35C 


T «■ (stack&-2); 


compare; 


«0 «- 33C 


T •■ (stack&-2); 


compare; 


sO «- 31C 


T «- (stack&-2); 


compare; 


sO •■ 27C 


T *■ (stack&-2); 


compare; 


sO «- 25C 


T «■ (stack&-2); 


compare; 


sO «- 23C 


T «- (stack&-2); 


compare; 


SO <- 21C 


T *■ (stack&-2); 


compare; 



LOAD PAGE[popxpage]; 
gotop[pop3]; 



ON PAGE[popxpage]; 



pop3: 



popm3: 



sO «■ 20C; 










stkp ♦- sO; 










T «• (stack&+3); 






compare; 










SO <- 23C; 


T 


♦« 


(stack&+3) 


; compare; 


sO <- 26C; 


T 


4- 


(stack&+3) 


; compare; 


sO ♦- 31C; 


T 


*- 


(stack&+3) 


; compare; 


SO «- 34C; 


T 


4- 


(stack&+3) 


; compare; 


SO «- 37C; 


T 


♦- 


(stack&+3) 


; compare; 


SO ♦• 22C; 


T 


«- 


(stack&+3) 


; compare; 


sO «- 25C; 


T 


«- 


(stack&+3) 


; compare; 


sO «- 30C; 


T 


♦- 


(stack&+3) 


compare; 


sO «• 33C; 


T 


«- 


(stack&+3) 


; compare; 


sO ♦• 36C; 


T 


*- 


(stack&+3) 


compare; 


SO «- 21C; 


T 


«- 


(stack&+3) 


; compare; 


SO «- 24C; 


T 


♦- 


(stack&+3) 


; compare; 


sO «- 27C; 


T 


«- 


(stack&+3) 


; compare; 


sO «- 32C; 


T 


«- 


(stack&+3) 


; compare; 


sO «- 35C; 


T 


«- 


(stack&+3) 


compare; 


SO ♦• 20C; 


T 


4- 


(stack&+3) 


compare; 


sO «■ 20C; 










stkp «• sO; 










T «- (stack&-3) 






compare; 










sO «• 35C; 


T 


4- 


(stack&-3) 


; compare; 


sO <- 32C; 


T 


4- 


(stack&-3] 


; compare; 


SO «- 27C; 


T 


*■ 


(stack&-3; 


compare; 


sO «- 24C; 


T 


4- 


(stack&-3; 


; compare; 


sO «- 21C; 


T 


4- 


(stack&-3; 


; compare; 


sO «- 36C; 


T 


4- 


($tack&-3; 


; compare; 


sO «- 33C; 


T 


4- 


(stack&-3; 


; compare; 


sO «- 30C; 


T 


4- 


(stack&-3 


-, compare; 


sO «- 25C; 


T 


4- 


(stack&-3 


; compare; 


SO «- 22C; 


T 


4- 


(stack&-3 


; compare; 


sO +- 37C; 


T 


4- 


(stack&-3 


; compare; 


sO «■ 34C; 


T 


4- 


(stack&-3 


; compare; 


sO <- 31C; 


T 


«- 


(stack&-3 


; compare; 


SO ♦• 26C; 


T 


4- 


(stack&-3 


; compare; 


SO «- 23C; 


T 


4- 


(stack&-3 


i; compare; 


sO «• 20C; 


T 


4- 


(stack&-3 


i; compare; 
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apc&apctask «- oldapc; 
return; 

************ end SUBROUTINE: poptst ***** 

**************************************************************************************** 

OMPAGE[0]; 

********** start SUBROUTINE: compareO •*******•* 

compareO: LU ♦■ (sO) ti (T); 

goto[success, ALU«0]; 
fail: breakpoint; 
success: return; 



************ end SUBROUTINE: compareO 

*** similarly: *** 

ONPAGE[l]; 

comparel: LOADPAGE[0]; 

gotop[compareO]; 
ONPAGE[2]; 
compare2: LOAOPAGE[0]; 

gotop[compareO]; 
ONPAGE[3]; 
compare3: LOADPAGE[0]; 

gotop[compareO]; 
ONPAGE[4]; 
compare4: LOADPAGE[0]; 

gotop[compareO]; 
ONPAGE[5]; 
compare5: LOADPAGE[0]; 

gotop[compareO]; 

end; 



EDALU 




initialize registers 



start: 
go: 



v 



PassCount *-0 
MaxPass*- 1000C 



CLRM 



Mpanel 
Mcount 



OOOO 
0000 



generate task switch 
to TASK 



TASK 
fail to switch? 



yes 



badnotify: 

•^TbreakpoinTI 



TO: 

bwnotify: 

badwake: 

bwnot: 

xret: 

TtoR: 



RtoT: 



contst: 



aluist: 



aluO: 



alul: 



v 



cause tasks 1-15 to 
"resume" at 

badwake 

if awakened 



v 



MNCM 



Mpanel =0001 
Mcount =0001 



test T pass around ALU path 
with a 16-bit word of 000377 



INCM 



Mpanel =0002 
Mcount =0002 



v 



test R pass around ALU path 
with a 16-bit word of 000377 



V 



INCM 



±. 



Mpanel =0003 
Mcount =0003 



test F1 F2 ALU constant generation 
of zero and of all possible 16-bit 
constants with a single nonzero bit 



V 



INCM 



Mpanel 
Mcount 



'0004 
'0004 



test cycler/masker generation of ZERO. 

test adding 1 to a T register of all ones 
using the (zero) *■ (T) + (1) function 



\f 



INCM 



Mpanel =0005 
Mcount =0005 



JL 



t€ist storing and receiving a word of 
alii zeroes and all ones from a T register 



INCM 



Mpanel =0006 
Mcount = 0006 



v 



test storing and receiving a word of 

all zeroes and all ones from an R register 



^ 



CALL 
compareO 

(page 03) 



CALL 
compareO 

(page 03) 



CALL 
compareO 

(page 03) 



CALL 
compareO 

(page 03) 



CALL 
compareO 

(page 03) 



alu2: 



INCM 



± 



Mpanel =0007 
Mcount =0007 



test the ALU operation "and 1 

OandO 
Oand 1 
1 andO 
1 and 1 



for each 
pattern: 

CALL compareO 

(page 03) 



V 



alu3: 



MNCM 



Mpanel 
Mcount 



• 0008 
'0010 



test the ALU operation "or' 

OorO 
0or1 
1 orO 
1 or 1 



alu4: 



for each 
pattern: 

CALL compareO 

(page 03) 



V 



INCM 



Mpanel =0009 
Mcount =0011 



test the ALU operation "xor* 

OxorO 
Oxor 1 
1 xorO 
1 xor 1 



for each 
pattern: 

CALL compareO 

(page 03) 



V 



alu5: 



INCM 



Mpanel 
Mcount 



'0010 
'0012 



V 



test the ALU operation "andnot' 

andnot 

andnot 1 

1 andnot 
1 andnot 1 



for each 
pattern: 

CALL compareO 

(page 03) 



_y 



alu6: 



| INCM 



Mpanel =0011 
Mcount =0013 



V 



test the ALU operation "ornot": 



Oornot 

ornot 1 

1 ornot O 
1 ornot 1 



alu7: 



for each 
pattern: 

CALL compareO 

(page 03) 



V 



INCM 



JL 



Mpanel =0012 
Mcount =0014 



test the ALU operation "xnor' 

OxnorO 
Oxnor 1 
1 xnorO 
1 xnor 1 



CALL 
compareO 

(page 03) 



stktst: 



for each . 
pattern: 

CALL compareO 

(page 03) 



JL 



INCM 



Mpanel =0013 
Mcount =0015 



V 



test the stack pointer (stkp) by 
writing octal 317 into it and 
reading it back (inverted) 



flone 

(page 02) 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDALU 


DOCUMENTATION FILE 

EDALU-01.sil 


DESIGNER 

Thomson/ Kellman 


REV 
1 


DATE 

1/11/80 


PAGE 

01 



flone: 



INCM 



IncM before 
each pattern 



test R store locations 20-317 
with the following patterns: 

• a 16-bit word of zeroes 

• all possible 16-blt words with 

only a single nonzero bit 



flzero: 



A 



JL 



INCM 



incM before 
each pattern 



test R store locations 20-317 
with the following patterns: 

• a 16-bit word of all ones 

• all possible 16-bit words with 

only a single zero bit 



AfillR: 



Mpanel a 0014-0030 
Mcount 3 0016-0036 

For each 
pattern: 

CALLTfillR 
CALLTchkR 
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Mpanel =0031-0047 
Mcount =0037-0057 

For each 
pattern:. 

CALLTfillR 

CALLTchkR 

(page 03) 



X 



INCM 



Mpanel a 0048 
Mcount a 0060 



SO «- T «- (Rmax 1 a 317) 



AfillRI: 



-5» 



AfillR fills words 20-317 
of the R file with their own 
addresses as data 



Stkp «- SO 

Stack «-T 

decrement SO 

SO ♦• T - SO 



< yes ( SO > = (Rmln a 20) ? 



AchkR: 
AchkRI: 



±. 



S0«-T*-(Rmax s 317) 



A 



Stkp - SO 



Stack = T? 



AchkR checks that the 
contents of words 20-31 7 
of the R file match their 
addresses 



AchkRer: 

->Tbreak point] 



yes 
< 



V 



decrement SO 

SO *- T «- SO 



JL 



< yes ( SO > = (Rmln a 20) ? 






pushl: 
pushll: 



pushml: 
pushmll: 



push2: 

push2le: 

push2lo: 



pushm2: 

pushm2le: 

pushm2lo: 



push3: 
push3l: 



pushm3: 
pushm3l: 



INCM 



init R regs20-317 
to all ones, incM 



use push with autoincrement ♦ 1 to store 
R-regs 20*37 with corresp addresses. 



check with poptst 



±. 



| INCM 



init Rregs 20-317 
to all ones, IncM 



use push with autoincrement • 1 to store 
R-regs 20-37 with corresp addresses. 



check with poptst 



JL 



INCM 



init Rregs 20-317 
to ail ones, incM 



use push with autoincrement + 2 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 



±. 



| INCM | 



init R regs 20-317 
to all ones, incM 



use push with autoincrement - 2 to store 
R-regs 20-37 with corresp addresses. 



check with poptst 



V 



IKir> ., ■ init R regs 20-317 
IIMU m | toallones, incM 



use push with autoincrement + 3 to store 
R-regs 20-37 with corresp addresses. 



check with poptst 



V 



INCM 



init R regs 20-317 
toallones, incM 



use push with autoincrement - 3 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 



increment pass count 



JL 



done with all passes? 
(PassCount>= MaxPass?) 



Mpanel a004€ 
Mcount ^1 

CALL 
TfillR, 
poptst 
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Mpanel aC05( 
Mcount aQ062 

CALL 
TfillR, 
poptst 
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Mpanel a 005' 
Mcount =0061 

CALL 
TfillR, 
poptst 
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Mpanel a 0051 
Mcount a 006* 

CALL 
TfillR, 
poptst 
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Mpanel - ^oC 
Mcount =006J 

CALL 
TfillR, 
poptst 
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Mpanel =005< 
Mcount a006< 

CALL 
TfillR, 
poptst 
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go 

(page 01) 



yes 



passcount «-0 



Passed-EDALU-Test: I BREAKPOINT | JJ^Cnt 




a0055 
= 0067 



XEROX D(0) 

ED iDiaanosticI 



PROGRAM NAME 

EDALU 



DOCUMENTATION FILE 

EDALU-02,sil 



DESIGNER I REV I DATE 

Thomson/Kellman I 1 1 1/8/80 



PAGE 

02 



TfillRI: 



popl: 

popmi: 

pop2e: 

pop2o: 

popm2e: 

popm2o: 

pop3; 

popm3: 



SUBROUTINE 



SUBROUTINE 



TflllR 



TfillR fills words 20-31 7 

of the R file with a constant 

provided byT. 

Increments Mpanel and Mcount 



TchkR 



TchkR checks that the 
contents of words 20-31 7 
of the R file are all equal 
to the constant InT 



increment Mpanel 
increment Mcount 



S1 « T? 



S1 *-T 

~3T 



(loop if bad) 



TchkRerO:__ 
J!2 "^B RE A K PO I nT] 



S1 = T? 



TfillRen 

■^[Jreak point] 



\t 



yes 

K — 



SO a T? 



yes 



f~S0<-(Rmax = 317) 



Stkp ♦- SO 

Stack *-T 

decrement SO 



E 



JL 



yes 
< — 



TchkRerl: 

->["breakpoinT1 
y 



S0«-(Rmax = 317) 



TchkRI: 



< vos ( SO > = (Rmin = 20) ? 



T*-S1 
S0«-T 



V 



| RETURN 



Stkp «- SO 



Stack » T? 



TchkRer2: 

-^PbreakpoinTI 



v 



yes 

K — 



decrement SO 



Jl 



< ves ( S0>= (Rmin = 20)? 



V 



SUBROUTINE 



RETURN 



poptst 



± 



poptst checks that the 
contents of words 20-37 of 
the R file match their addresses 
and that the stack pointer 
counts properly 



save return link 



V 



UseCTask 

oldapc = apc&apctask 



pop stack with autoincrement of ♦ 1 
addr: 20-37,20 

pop stack with autoincrement of -1 
addr: 20, 37-20 

pop stack with autoincrement of +2 
addr: 20-36, 20 (even only) 

pop stack with autoincrement of +2 
addr: 21-37, 21 (odd only) 

pop stack with autoincrement of -2 
addr: 20, 36-20 (even only) 

pop stack with autoincrement of -2 
addr: 21,37-21 (odd only) 

pop stack with autoincrement of +3 
addr: 20-37, 20 (interlaced) 

pop stack with autoincrement of -3 
addr: 20, 37-20 (interlaced) 



NOTE: COmpareO is reached by 
Midas routing of Compare 

SUBROUTINE 



for each of 
the 104 
stack pop 
operations 

GALL 
compareO 
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f \ compareO checks that 

(COmpareO) the contents of SO (R file) 
V J match the contents of T 



± 



SO = T? 



success: 



V 



yes 

< — 



fail: 

-»TbreakpoinT| 

y 



RETURN 



JL 



restore return link 



RETURN 



apc&apctask = oldapc 
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ED 



D(0) 
Diagnostic 



PROGRAM NAME 

EDALU 



DOCUMENTATION FILE 

EDALU-03.sii 



DESIGNER 

Thomson/ Kellman 



REV 
1 



DATE 

12/27/79 



PAGE 

03 



PARITY 









REVISION 


1 


COMM-ER0 


CYCLECONTRGL 


83 


RUN-TIME 


11 


COMM-ER1 


PCXREG 






2 


PASSCOUNT 





C0MM-ER2 


PCFREG 






2 


MAXPA3S 


1000 


BOOT-ERR 


DBREG 






77 






*BOOTREASON 


SBREG 






77 






MEMSYNDROME 


MM BR 




161007 








SSTKP 















STKP 









MCOUNT 







*ALURESULT 




3 








3ALUF 















T 20 






7000 








AATOVA 















TPC 20 






7777 








CALLER 


ILCQ+6217 








*PAGE 






5 


T 


7000 




*APQ 






7011 


S0 


176405 




*APCTASK 






16 


SI 







*CIA 






GO+1 








CTASK 




















40 

184247 



Loaded: EGALU 



Time: 09.83 



Step at 0:GO, BP at 0:GG+1 



Exit Boot Run-Prog Read-Crnds Break UnBreak ClrAddedBPs ClrAllBPs ShowBPs Go 

S3 Continue Load LdSyms Compare Test-All Test Dump Show-Crads Write-Cmds 
Virtual 



EDALU.dls 



13-Mar-80 11:09:40 



Page 



MicroD 8.6 (OS 16) of April 27, 1979 
at 10-Jan-80 12:52:59 

microd.run EDALU.dlb 



EDALU.dlltt 1560b Instructions written 10-Jan-80 12:51:04 

Total of 1560b Instructions 

Checking for errors... 
Linking. . . 

Building allocation lists... 
Assigning locations... 

1560b instructions in rings Involving 0NPAGE or AT 
Reloading binaries... 
Checking assignment... 
Writing .MB file. .. 
Writing listing. . . 

IM: 



Imag 


Real 


WO 


Wl 


W2 


Symbol 


EDALU. 
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60 START 


1 


2554 
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5 
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2 
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113124 


1 


(+2) 
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2552 


30147 


21060 
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4 


2430 


50 


25401 





(+4) 


5 


b 2555 


50 


25003 





BADNOTIFY 


6 


02400 


30035 


113043 


3 


TO 


7 


2721 


30301 


101006 





( + 1) 


10 


2403 
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1 


BWNOTIFY 


11 


2563 


50 
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12 
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1 
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13 
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33151 


1 


(+3) 


14 


2564 


50 


24004 





(+4) 


15 


@2420 


30020 


113344 


5 


BWNOT 


16 


2421 


47 


27137 


1 


BADWAKE 


17 


2557 


50150 


65135 


15 


( + 1) 


20 


b 2556 


50 


25003 





(+2) 


21 


2722 


50 


25401 





(+3) 


22 


2562 


30301 


123143 


5 


XRET 


23 


2561 


30147 


21140 


5 


( + 1) 


24 


2560 


50 


25401 





(+2) 


25 


2402 


33047 


105040 


7 


TTOR 


26 


2720 


30020 


141037 


3 


(+1) 


27 


2717 


17 


77034 


3 


(+2) 


30 


2716 


30050 


125120 


1 


(+3) 


31 


2550 


50 


25232 


3 


(+4) 


32 


2551 


33047 


105161 


5 


RTOT 


33 


2570 


30020 


141157 


1 


( + 1) 


34 


2567 


30017 


137154 


1 


(+2) 


35 


2566 


30150 


65114 


1 


(+3) 


36 


2546 


50 


25232 


3 


(+4) 


37 


2547 


33047 


105164 


5 


COMTST 


40 


2572 


30176 


101162 


1 


"(*1) - 


41 


2571 


20 


41111 


1 


(+2) 


42 
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50 


25232 


3 
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43 
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1 
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44 
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1 
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50 
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3 
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1 
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47 


2574 
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1 
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50 
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50 
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3 


(+U) 
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1 
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52 
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1 
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50 
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3 
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54 
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1 
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55 
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61070 


1 


( + 16) 


56 


2534 


50 


25232 


3 


(+17) 


57 


2535 


31150 


125176 


1 


(+20) 


60 


2577 


1 


41064 


1 


(+21) 


61 


2532 


50 


25232 


3 


(+22) 
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3 


(+25) 


65 
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125003 


2 
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66 


2601 
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41054 


1 
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3 
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2 
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50 
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3 


(+33) 


73 


2525 


31150 


125006 


2 


(+34) 
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3 
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2 
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3 
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2 
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102 
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1 
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50 
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3 


(+44) 


104 
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31150 


125014 


2 


(+45) 


105 
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20 


61030 


.1 


(+46) 


106 


2514 


50 


25232 


3 


(+47) 


107 


2515 


31150 


125017 


2 


(+50) 


110 
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21 


41024 


1 


(+51) 


111 


2512 


50 


25232 


3 
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2513 


31150 


125021 


2 
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113 
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41021 


1 
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3 
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2 
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3 
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1 
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3 
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6 


ALUTST 
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2 
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3 
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3 
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6 


ALUO 
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2620 


1376 


41036 


2 


( + 1) 


135 


2617 


30050 


125174 





(+2) 


136 


2476 


50 


25232 


3 


(+3) 


137 


2477 


20 


41043 


2 


( + 4) 


140 


2621 


30050 


125171 





(+5) 


141 


2474 


50 


25232 


3 


(+6) 


142 


2475 


33047 


105047 


6 


ALU1 


143 


2623 


30020 


101045 


2 


( + 1) 


144 


2622 


30150 


65164 





(+2) 


145 


2472 


50 


25232 


3 


(+3) 


* 146 


2473 


31376 


101050 


2 


(+4) 


147 


2624 


30150 


65161 





(+5) 


150 


2470 


50 


25232 


3- 


(+6) 


151 


2471 


33047 


105056 


6 


ALU2 


152 


2627 


20 


41054 


2 


( + 1) 
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2626 


276 


41053 


2 


(+2) 
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2625 


30020 


101154 
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2466 


50 


25232 


3 


(+4) 


156 


2467 


1376 


41063 


2 


(+5) 
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2631 
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2 
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160 


2630 


30020 


101151 
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50 


25232 


3 


( + 10) 
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2465 


20 
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2 


( + 11) 
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30250 
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6 


( + 12) 
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30020 


101145 
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165 


2462 


50 


25232 


3 


( + 14) 


166 


2463 


13-76 


41072 


2 


( + 15) 


167 


2635 


30250 


65071 


6 


. (+46) 


170 


2634 


31376 


10*141 
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171 


2460 


50 


25232 


3 


(+20) 


172 
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33047 


105101 


6 


ALU3 


173 


2640 


20 


41076 


2 


( + 1) 


174 


2637 
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41075 


2 


(+2) 
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30020 


101134 





(+3) 
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(+5) 


200 


2642 


376 


41103 


2 
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3 
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2 
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3 
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2 
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210 
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6 
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50 
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3 
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2 
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3 
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3 


(+20) 


234 


2441 


33047 


105145 


6 


ALU5 
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2 
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2 
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427 465 24 41164 1 (+76) 

430 572 50 25264 3 (+77) 
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432 462 50 25361 2 (+101) 
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434 570 50 25264 3 (+103) 

435 571 20 41076 2 FLZERO 

436 637 676 41140 (+1) 

437 460 50 25361 »2 (+2) 

440 461 20 41163 2 (+3) 

441 671 676 41155 1 (+4) 

442 566 50 25264 3 (+5) 

443 567 43100 2 (+6) 

444 640 676 41134 (+7) 

445 456 50 25361 2 (+10) 

446 457 43165 2 (+11) 

447 672 676 41150 1 (+12) 

450 564 50 25264 3 (+13) 

451 565 45103 .2 ( + 14) 

452 641 676 41131 (+15) 

453 454 50 25361 2 (+16) 

454 455 45166 2 (+17) 
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456 562 50 25264 3 (+21) 
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460 642 676 41125 (+23) 
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464 560 50 25264 3 (+27) 

465 561 61106 2 (+30) 

466 643 676 41120 (+31) 

467 450 50 25361 2 (+32) 

470 451 61172 2 (+33) 

471 675 676 41135 1 (+34) 

472 556 50 25264 3 (+35) 

473 557 1 41111 2 (+36) 

474 644 676 41115 (+37) 

475 446 50 25361 2 (+40) 

476 447 1 41174 2 (+41) 

477 676 676 41130 1 (+42) 

500 554 50 25264 3 (+43) 

501 555 2 41112 2 (+44) 

502 645 676 41110 (+45) 

503 444 50 25361 2 (+46) 

504 445 2 41177 2 (+47) 

505 677 676 41124 1 (+50) 

506 552 50 25264 3 (+51) 

507 553 4 41114 2 (+52) 

510 646 676 41104 (+53) 

511 442 5.0 25361 2 (+54) 
« 512 443 4 41000 3 (+55) 

513 700 676 41121 1 (+66) 

514 550 50 2-5264 3- (+57) 

515 551 10 41117 2 (+60) 

516 647 676 41101 (+61) 

517 440 50 25361 2 (+62) 

520 441 10 41003 3 (+63) 

521 701 676 41114 1 (+64) 

522 546 50 25264 3 (+65) 

523 547 20 43120 2 (+66.) 

524 650 676 41074 (+67) 

525 436 50 25361 2 (+70) 

526 437 20 43004 3 (+71) 

527 702 676 41111 1 (+72) 

530 544 50 25264 3 (+73) 

531 545 20 45123 2 (+74) 

532 651 676 41071 (+75) 

533 434 50 25361 2 (+76) 

534 435 20 45-007 3 ~ ( + 77) 

535 703 676 41105 1 (+100) 

536 542 50 25264 3 (+101) 

537 543 20 51125 2 (+102) 

540 652 676 41065 (+103) 

541 432 50 25361 2 (+104) 



EDALU.dls . 






13-Mar-80 


542 


433 


20 


51010 


3 


(+105) 


543 


704 


676 


41100 


1 


(+106) 


544 


540 


50 


25264 


3 


(+107) 


545 


541 


20 


61126 


2 


(+110) 


546 


653 


676 


41060 





(+111) 


547 


430 


50 


25361 


2 


(+112) 


550 


431 


20 


61013 


3 


(+113) 


551 


705 


676 


41075 


1 


(+114) 


552 


536 


50 


25264 


3 


(+116) 


553 


537 


21 


41131 


2 


(+116) 


554 


654 


676 


41055 





(+117) 


556 


'426 


50 


25361 


2 


(+120) 


556 


427 


21 


41015 


3 


(+121) 


557 


706 


676 


41070 


1 


( + 122)' 


560 


534 


50 


25264 


3 


(+123) 


561 


535 


22 


41132 


2 


(+124) 


562 


655 


676 


41050 





(+125) 


563 


424 


50 


25361 


2 


(+126) 


564 


425 


22 


41016 


3 


(+127) 


565 


707 


676 


41064 


1 


(+130) 


566 


532 


50 


25264 


3 


(+131) 


567 


533 


24 


41134 


2 


(+132) 


570 


656 


676 


41044 





(+133) 


571 


422 


'50 


25361 


2 


(+134) 


572 


423 


24 


41020 


3 


(+135) 


573 


710 


676 


41061 


1 


(+136) 


574 


530 


50 


25264 


3 


(+137) 


575 


531 


30 


41137 


2 


(+140) 


576 


657 


676 


41021 





(+141) 


577 


410 


50 


25361 


2 


(+142) 


600 


411 


30 


41046 


3 


(+143) 


601 


723 


676 


41041 





(+144) 


602 


420 


50 


25264 


3 


(+145) 


603 


421 


33047 


105045 


7 


AFILLR 


604 


722 


30014 


177035 





( + 1) 


605 


416 


30150 


3030 


3 


AFILLRL 


606 


714 


40050 


125027 


17 


( + 1) 


607 


713 


31350 


165025 


3 


(+2) 


610 


712 


31401 


1023 


3 


(+3) 


611 


711 


50 


24235 





(+4) 


612 


417 


30014 


177024 





ACHKR 


613 


412 


30150 


3041 


3 


ACHKRL 


614 


720 


40450 


25036 


17 


( + 1) 


615 


717 


50 


24031 





(+2) 


616 b 


415 


50 


25030 





ACHKRER 


617 


414 


31350 


165034 


3 


( + 1) 


620 


716 


31401 


1032 


3 


(+2) 


621 


715 


50 


24224 





(+3) 


622 


413 


45 


5042 


3 


(+4) 


623 


721 


50 


25125 





(+5) 


624 


670 


33047 


105157 


6 


TFILLR 


625 


667 


30050 


125155 


6 


( + 1) 


626 


666 


30450 


25153 


6 


(+2) 


627 


665 


50 


24050 


1 


(+3) 


630 b 


525 


50 


25156 


2 


TFILLRER 


631 


524 


30014 


137055 


1 


( + 1) 


632 


526 


30150 


3147 


2 


TFILLRL 


633 


663 


40050 


125144 


16 


( + 1) 


634 


662 


31350 


125142 


2 


(+2) 


635 


661 


31401 


1140 


2 


(+3) 


636 


660 


50 


24254 


1 


(+4) 


637 


527 


30150 


65151 


6 


(+5) 


640 


664 


30050 


125400 





(+6) 


641 


732 


30450 


25063 


7 


TCHKR 


642 


731 


50 


24Q15 





( + 1) 


643 b 


407 


50 


25014 





TCHKRERO 


644 


406 


30450 


25061 


3 


( + 1) 


645 


730 


. 50 


24010 





(+2) 


646 b 


405 


50 


25011 





TCHKRER1 


647 


404 


30014 


137001 





( + 1) 


650 


400 


30150 


3056 


3 


TCHKRL 


651 


727 


40450 


25055 


17 


( + 1) 


652 


726 


50 


24004 





(+2) 


653 b 


403 


50 


25005 





TCHKRER2 


654 


402 


31350 


125053 


3 


( + 1) 


655 


725 


31401 


1051 


3 


(+2) 



Page 6 



EDALU. 


dls 






1 


656 


724 


50 


24200 





657 


401 


50 


25401 





660 


1052 


1376 


41125 


1 


661 


1152 


45 


3120 





662 


1050 


50 


25361 


2 


663 


1051 


30001 


137122 


1 


664 


1151 


30150 


3121 


1 


665 


1150 


30001 


141117 


5 


666 


1147 


30000 


137115 


10 


667 


1046 


42050 


125133 


14 


670 


1055 


31050 


165131 


4 


671 


1054 


31350 


125127 


10 


672 


1053 


50 


24315 





673 


1047 


45 


11110 





674 


1044 


50 


25230 


2 


675 


1045 


1376 


41115 


1 


676 


1146 


45 


3104 





677 


1042 


50 


25361 


2 


700 


1043 


30001 


101112 


1 


701 


1145 


30150 


3111 


1 


702 


1144 


30001 


177106 


5 


703 


1143 


30000 


137101 


10 


704 


1040 


44050 


125141 


14 


705 


1060 


31350 


165137 


4 


706 


1057 


31350 


125135 


10 


707 


1056 


50 


24301 





710 


1041 


45 


11074 





711 


1036 


50 


25230 


2 


712 


1037 


1376 


41104 


1 


713 


1142 


45 


3071 





714 


1034 


50 


25361 


2 


715 


1035 


30001 


135102 


1 


716 


1141 


30150 


3100 


1 


717 


1140 


30001 


141076 


5 


720 


1137 


30000 


117064 


10 


721 


1032 


40050 


107146 


14 


722 


1063 


31100 


145145 


4 


723 


1062 


31350 


125142 


10 


724 


1061 


50 


24265 





725 


1033 


30001 


137075 


1 


726 


1136 


30150 


3073 


1 


727 


1135 


30001 


143071 


5 


730 


1134 


30000 


117061 


10 


731 


1030 


40050 


107154 


14 


732 


1066 


31100 


145152 


4 


733 


1065 


31350 


125150 


10 


734 


1064 


50 


24260 





735 


1031 


45 


11055 





736 


1026 


50 


25230 


2 


737 


1027 


1376 


41066 


1 


740 


1133 


45 


3050 





741 


1024 


50 


25361 


2 


742 


1025 


30001 


101064 


1 


743 


1132 


30150 


3062 


1 


744 


1131 


30001 


175060 


5 


745 


1130 


30000 


117045 


10 


746 


1022 


46050 


125162 


14 


747 


1071 


31400 


145161 


4 


750 


1070 


31350 


125156 


10 


751 


1067 


50 


24244 





752 


1023 


30001 


103056 


1 


753 


1127 


30150 


3054 


1 


754 


1126 


30001 


177052 


5 


755 


1125 


30000 


117040 


10 


756 


1020 


46050 


125170 


14 


757 


1074 


31400 


145167 


4 


760 


1073 


31350 


125165 


10 


761 


1072 


. 50 


24241 





762 


1021 


45 


11035 





763 


1016 


50 


25230 


2 


764 


1017 


1376 


41050 


1 


765 


1124 


45 


3030 





766 


1014 


50 


25361 


2 


767 


1015 


30001 


133047 


1 


770 


1123 


30150 


3045 


1 


771 


1122 


30001 


141043 


5 



13-Mar-80 11:09:40 



(+3) 

(+4) 
PUSH1 

( + 1) 

(+2) 

(+3) 

(+4) • 

(+5) 

(+6) 
PUSH1L 

( + 1) 

(+2) 

(+3) 

(+4) 

(+5) 
PUSHM1 

( + 1) 

(+2) 

(+3) 

(+4) 

(+5) 

(+6) 
PUSHM1L 

(+1) 

(+2) 

(+3) 

(+4) 

(+5) 
PUSH2 

( + 1) 
(+2) 
(+3) 
(+4) 
(+5) 
(+6) 
PUSH2LE 

( + 1) 

(+2) 

(+3) 

(+4) 

(+5) 

(+6) 

( + 7) 
PUSH2LO 

( + 1) 

(+2) 

(+3) 

(+4). 

(+5) 
PUSHM2 

( + 1) 

(+2) 

(+3) 

(+4) 

(+5) 

(+6) 
PUSHM2LE 

J + 1 > 
(+2) 

(+3) 

(+4)~ 

(+5) 

(+6) 

< + 7) 
PUSHM2LO 

( + 1) 

(+2) 

(♦3) 

(+4) 

(+5) 
PUSH3 

( + 1) 
(+2) 
(+3) 
(+4) 
(+5) 



Page 



EDALU.dls 


13- 


Mar-80 11:09: 


40 


772 


1121 


30000 137024 10 


(+6) 




773 


1012 


42050 107003 15 


PUSH3L 




774 


1101 


31100 107001 5 


( + 1) 




775 


1100 


30200 137177 4 


(+2) 




776 


1077 


31101 141175 4 


(+3) 




777 


1076 


31350 125172 10 


(+4) 




1000 


1075 


50 24224 


(+5) 




1001 


1013 


45 11021 


(+6) 




1002 


1010 


50 25230 2 


(+7) 




1003 


1011 


1376 41041 1 


PUSHM3 




1004 


1120 


45 3014 


(+1) 




1005 


1006 


50 25361 2 


(+2) 




1006 


1007 


30001 101037 1 


(+3) 




1007 


1117 


30150 3034 1 


(+4) 




1010 


1116 


30001 173033 5 


(+5) 




1011 


1115 


30000 137011 10 


(+6) 




1012 


1004 


46050 107015 15 


PUSHM3L 




1013 


1106 


31400 107013 5 


(+1) 




1014 


1105 


30200 137011 5 


(+2) 




1015 


1104 


31101 141007 5 


(+3) 




1016 


1103 


31350 125005 11 


(+4) 




1017 


1102 


50 24211 


(+5) 




1020 


1005 


45 11005 


(+6) 




1021 


1002 


50 25230 2 


(+7) 




1022 


1003 


33050 125030 15 


(+10) 




1023 


1114 


34150 65027 1 


(+11) 




1024 


1113 


33450 25024 15 


(+12) 




1025 


1112 


50 24200 


(+13) 




1026 


1001 


45 13022 1 


(+14) 




1027 


1111 


50 25003 


( + 15) 




1030 b 


i 1000 


32020 101021 15 


PASSED-EDALU- 


•TEST 


1031 


1110 


45 13017 1 


(+1) 




1032 


1107 


50 25003 


(+2) 




1033 


2214 


47 27075 3 


POPTST 




1034 


2336 


50150 65072 17 


( + 1) 




1035 


2335 


30050 125070 17 


(+2) 




1036 


2334 


30001 101066 3 


POP1 




1037 


2333 


30150 3065 3 


(+1) 




1040 


2332 


42150 65025 16 


(+2) 




1041 


2212 


50 25262 3 


(+3) 




1042 


2213 


30001 103033 2 


(+4) 




1043 


2215 


42150 65020 16 


(+5) 




1044 


2210 


50 25262 3 


(+6) 




1045 


2211 


30001 105035 2 


(+7) 




1046 


2216 


42150 65015 16 


(+10) 




1047 


2206 


50 25262 3 


(+11) 




1050 


2207 


30001 107037 2 


(+12) 




1051 


2217 


42150 65010 16 


( + 13) 




1052 


2204 


50 25262 3 


( + 14) 




1053 


2205 


30001 111041 2 


( + 15) 




1054 


2220 


42150 65004 16 


( + 16) 




1055 


2202 


50 25262 3 


(+17) 




* 1056 


2203 


30001 113043 2 


(+20) 




1057 


2221 


42150 65001 16 


(+21) 




1060 


2200 


50 25262 3- 


(+22) 




1061 


2201 


30001 115045 2 


(+23) 




1062 


2222 


42150 65174 15 


(+24) 




1063 


2176 


50 25262 3 


(+25) 




1064 


2177 


30001 117047 2 


(+26) 




1065 


2223 


42150 65171 15 


(+27) 




1066 


2174 


50 25262 3 


(+30) 




1067 


2175 


30001 121050 2 


(+31.) 




1070 


2224 


42150 65165 15 


(+32) 




1071 


2172 


50 25262 3 


(+33) 




1072 


2173 


30001 123052 2 


(+34) 




1073 


2225 


42150 65160 15 


(+35) 




1074 


2170 


50 25262 3 


(+36) 




1075 


2171 


30001 125054 2 


(+37) 




1076 


2226 


42150 65155 15 


(+40) 




1077 


2166 


50 25262 3 


(+41) 




1100 


2167 


30001 127056 2 


" (+42) 




1101 


2227 


42150 65150 15 


(+43) 




1102 


2164 


50 25262 3 


(+44) 




1103 


2165 


30001 131061 2 


(+45) 




1104 


2230 


42150 65144 15 


(+46) 




1105 


2162 


50 25262 3 


(+47) 





Page 8 



EDALU.dls .. 






13 


-Mar-80 


1106 


2163 


30001 


133063 


2 


(+50) 


1107 


2231 


42150 


65141 


15 


(+51) 


1110 


2160 


50 


25262 


3 


(+52) 


1111 


2161 


30001 


135065 


2 


(+53) 


1112 


2232 


42150 


65135 


15 


(+54) 


1113 


2156 


50 


25262 


3 


(+55) 


1114 


2157 


30001 


137067 


2 


(+56) 


1115 


2233 


42150 


65130 


15 


(+57) 


1116 


2154 


50 


25262 


3 


(+60) 


1117 


2155 


30001 


101070 


2 


(+61) 


1120 


2234 


42150 


65124 


15 


(+62) 


1121 


'2152 


50 


25262 


3 


(+63) 


1122 


2153 


30001 


101075 


2 


POPM1 


1123 


2236 


30150 


3073 


2 


( + 1) 


1124 


2235 


44150 


65121 


15 


(+2) 


1125 


2150 


50 


25262 


3 


(+3) 


1126 


2151 


30001 


137076 


2 


(+4) 


1127 


2237 


44150 


65114 


15 


(+5) 


1130 


2146 


50 


25262 


3 


(+6) 


1131 


2147 


30001 


135101 


2 


(+7) 


1132 


2240 


44150 


65111 


15 


( + 10) 


1133 


2144 


50 


25262 


3 


( + 11) 


1134 


2145 


30001 


133102 


2 


(+12) 


1135 


2241 


44150 


65105 


15 


( + 13) 


1136 


2142 


50 


25262 


3 


( + 14) 


1137 


2143 


30001 


131105 


2 


( + 15) 


1140 


2242 


44150 


65100 


15 


(+16) 


1141 


2140 


50 


25262 


3 


( + 17) 


1142 


2141 


30001 


127107 


2 


(+20) 


1143 


2243 


44150 


65075 


15 


(+21) 


1144 


2136 


50 


25262 


3 


(+22) 


1145 


2137 


30001 


125111 


.2 


(+23) 


1146 


2244 


44150 


65070 


15 


(+24) 


1147 


2134 


50 


25262 


3 


(+25) 


1150 


2135 


30001 


123112 


2 


(+26) 


1151 


2245 


44150 


65064 


15 


(+27) 


1152 


2132 


50 


25262 


3 


(+30) 


1153 


2133 


30001 


121115 


2 


(+31) 


1154 


2246 


44150 


65061 


15 


(+32) 


1155 


2130 


50 


25262 


3 


(+33) 


1156 


2131 


30001 


117116 


2 


(+34) 


1157 


2247 


44150 


65054 


15 


(+35) 


1160 


2126 


50 


25262 


3 


(+36) 


1161 


2127 


30001 


115121 


2 


(+37) 


1162 


2250 


44150 


65051 


15 


(+40) 


1163 


2124 


50 


25262 


3 


(+41) 


1164 


2125 


30001 


113122 


2 


(+42) 


1165 


2251 


44150 


65045 


15 


(+43) 


1166 


2122 


50 


25262 


3 


(+44) 


1167 


2123 


30001 


111125 


2 


(+45) 


1170 


2252 


44150 


65040 


15 


(+46) 


1171 


2120 


50 


25262 


3 


(+47) 


1172 


2121 


30001 


107127 


2 


(+50) 


1173 


2253 


44150 


65034 


15 


(+51) 


1174 


2116 


50 


25262 


3 


(+52) 


1175 


2117 


30001 


105131 


2 


(+53) 


1176 


2254 


44150 


65031 


15 


(+54) 


1177 


2114 


50 


25262 


3 


(+55) 


1200 


2115 


30001 


103132 


2 


(+56) 


1201 


2255 


44150 


65025 


15 


(+57) 


1202 


2112 


50 


25262 


3 


(+60) 


1203 


2113 


30001 


101135 


2 


(+61) 


1204 


2256 


44150 


65020 


15 


(+62) 


1205 


2110 


50 


25262 


3 


(+63) 


1206 


. 2U1 


30001 


101141 


2 


POP2E 


1207 


2260 


30150 


3136 


2 


(+1) 


1210 


2257 


40150 


47014 


15 


(+2) 


1211 


2106 


50 


25262 


3 


(+3) 


1212 


. 2107 


30001 


105143 


2 


(+4)- 


1213 


2261 


40150 


47011 


15 


(+5) 


1214 


2104 


50 


25262 


3 


(+6) 


1215 


2105 


30001 


111145 


2 


(+7) 


1216 


2262 


40150 


47005 


15 


( + 10) 


1217 


2102 


50 


25262 


3 


(+11) 


1220 


2103 


30001 


115147 


2 


( + 12) 


1221 


2263 


40150 


47000 


15 


( + 13) 
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EDALU. 


dls 






13-Mar-80 

# ' 


1222 


2100 


50 


25262 


3 < 


+ 14) 


1223 


2101 


30001 


121151 


2 < 


+ 15) 


1224 


2264 


40150 


47174 


14 I 


+ 16) 


1225 


2076 


50 


25262 


3 I 


+ 17) 


1226 


2077 


30001 


125153 


2 ( 


+20) 


1227 


2265 


40150 


47171 


14 < 


+21) 


1230 


2074 


50 


25262 


3 ( 


+22)- 


1231 


2075 


30001 


131155 


2 . 1 


+23) 


1232 


2266 


40150 


47165 


14 ( 


+24) 


1233 


2072 


50 


25262 


3 | 


+25) 


1234 


2073 


30001 


135157 


2 I 


+26) 


1235 


2267 


40150 


47160 


14 1 


+27) 


1236 


2070 


50 


25262 


3 l 


+30) 


1237 


2071 


30001 


101160 


2 l 


+31) 


1240 


2270 


40150 


47155 


14 ( 


+32) 


1241 


2066 


50 


25262 


3 i 


+33) 


1242 


2067 


30001 


103164 


2 P( 


)P20 


1243 


2272 


30150 


3163 


2 < 


+ 1) 


1244 


2271 


40150 


47150 


14 ( 


+2) 


1245 


2064 


50 


25262 


3 l 


+3) 


1246 


2065 


30001 


107166 


2 I 


+4) 


1247 


2273 


40150 


47144 


14 ( 


+5) 


1250 


2062 


50 


25262 


3 < 


+6) 


1251 


2063 


30001 


113171 


2 ( 


+7) 


1252 


2274 


40150 


47141 


14 i 


+ 10) 


1253 


2060 


50 


25262 


3 i 


+ 11) 


1254 


2061 


30001 


117173 


2 ( 


+ 12) 


1255 


2275 


40150 


47135 


14 < 


+ 13) 


1256 


2056 


50 


25262 


3 ( 


+ 14) 


1257 


2057 


30001 


123174 


2 < 


+ 15) 


1260 


2276 


40150 


47130 


14 


+ 16) 


1261 


2054 


50 


25262 


3 < 


+ 17) 


1262 


2055 


30001 


127176 


2 


+20) 


1263 


2277 


40150 


47124 


14 


+21) 


1264 


2052 


50 


25262 


3 


+22) 


1265 


2053 


30001 


133001 


3 < 


+23) 


1266 


2300 


40150 


47121 


14 


+24) 


1267 


2050 


50 


25262 


3 < 


+25) 


1270 


2051 


30001 


137003 


3 1 


+28) 


1271 


2301 


40150 


47114 


14 


+27) 


1272 


2046 


50 


25262 


3 


+30) 


1273 


2047 


30001 


103004 


3 1 


+31) 


1274 


2302 


40150 


47111 


14 


[+32) 


1275 


2044 


50 


25262 


3 


+33) 


1276 


2045 


30001 


101011 


3 P( 


)PM2E 


1277 


2304 


30150 


3006 


3 


[ + 1) 


1300 


2303 


46150 


65105 


14 


[+2) 


1301 


2042 


50 


25262 


3 


i+3) 


1302 


2043 


30001 


135013 


3 


[+4) 


1303 


2305 


46150 


65100 


14 


(+5) 


1304 


2040 


50 


25262 


3 


[+6) 


1305 


2041 


30001 


131014 


3 


(+7) 


1306 


2306 


46150 


65075 


14 


+ 10) 


13.07 


2036 


50 


25262 


3 


( + 11) 


1310 


2037 


30001 


125017 


3 


( + 12) 


1311 


2307 


46150 


65070 


14 


(+13) 


1312 


2034 


50 


25262 


3 


+ 14) 


1313 


2035 


30001 


121020 


3 


+ 15) 


1314 


2310 


46150 


65064 


14 ' 


+ 16) 


1315 


2032 


50 


25262 


3 


+ 17) 


1316 


2033 


30001 


115022 


3 


+20)" 


1317 


2311 


46150 


65061 


14 


(+21) 


1320 


2030 


50 


25262 


3 


(+22) 


1321 


2031 


30001 


111025 


3 


(+23) 


1322 


2312 


46150 


65054 


14 


(+24) 


1323 


2026 


50 


25262 


3 


(+25) 


1324 


2027 


30001 


105026 


3 


(+26) 


1325 


2313 


46150 


65051 


14 


(+27) 


1326 


2024 


50 


25262 


3 


(+30) 


1327 


2025 


30001 


101030 


3 


;+3l) 


1330 


2314 


46150 


65045 


14 


[+32) 


1331 


2022 


50 


25262 


3 


(+33) 


1332 


2023 


30001 


103034 


3 P 


3PM20 


1333 


2316 


30150 


3033 


3 


( + 1) 


1334 


2315 


46150 


65040 


14 


(+2) 


1335 


2020 


50 


25262 


3 


(+3) 
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EDALU. 


dlls 






13-Mar-8( 


1336 


2021 


30001 


137036 


3 


(+4) 


1337 


2317 


46150 


65034 


14 


(+5) 


1340 


2016 


50 


25262 


3 


(+6) 


1341 


2017 


30001 


133040 


3 


(+7) 


1342 


2320 


46150 


65031 


14 


( + 10) 


1343 


2014 


50 


25262 


3 


( + 11) 


1344 


2015 


30001 


127043 


3 


( + 12) 


1345 


2321 


46150 


65025 


14 


( + 13) 


1346 


2012 


50 


25262 


3 


( + 14) 


1347 


2013 


30001 


123044 


3 


( + 15) 


1350 


2322 


46150 


65020 


14 


( + 16) 


1351 


2010 


50 


25262 


3 


( + 17) 


1352 


2011 


30001 


117046 


3 


[+20) 


1353 


2323 


46150 


65015 


14 


(+21) 


1354 


2006 


50 


25262 


3 


(+22) 


1355 


2007 


30001 


113050 


3 


(+23) 


1356 


2324 


46150 


65010 


14 


(+24) 


1357 


2004 


50 


25262 


3 


(+25) 


1360 


2005 


30001 


107053 


3 


(+26) 


1361 


2325 


46150 


65001 


1.4 


(+27) 


1362 


2000 


50 


25262 


3 


(+30) 


1363 


2001 


30001 


103057 


3 


(+31) 


1364 


2327 


46150 


65004 


14 


(+32) 


1365 


2002 


50 


25262 


3 


(+33) 


1366 


2003 


45 


7054 


3 


(+34) 


1367 


2326 


50 


25010 


1 


(+35) 


1370 


1504 


30001 


101127 


1 P< 


)P3 


1371 


1553 


30150 


3124 


1 


[ + 1) 


1372 


1552 


42150 


47004 


15 


[+2) 


1373 


1502 


50 


25323 


1 


[+3) 


1374 


1503 


30001 


107013 


1 


[+4) 


1375 


1505 


42150 


47001 


15 < 


+5) 


1376 


1500 


50 


25323 


1 


+6) 


1377 


1501 


30001 


115015 


1 


+7) 


1400 


1506 


42150 


47175 


14 


+ 10) 


1401 


1476 


50 


25323 


1 


+ 11) 


1402 


1477 


30001 


123016 


1 ( 


+ 12) 


1403 


1507 


42150 


47170 


14 < 


+ 13) 


1404 


1474 


50 


25323 


1 ( 


+ 14) 


1405 


1475 


30001 


131020 


1 ( 


+ 15) 


1406 


1510 


42150 


47164 


14 i 


+ 16) 


1407 


1472 


50 


25323 


1 i 


+ 17) 


1410 


1473 


30001 


137023 


1 l 


+20) 


1411 


1511 


42150 


47161 


14 | 


+21) 


1412 


1470 


50 


25323 


1 { 


+22) 


1413 


1471 


30001 


105024 


1 \ 


+23) 


1414 


1512 


42150 


47154 


14 { 


+24) 


1415 


1466 


50 


25323 


1 1 


+25) 


1416 


1467 


30001 


113026 


1 ( 


+26) 


1417 


1513 


42150 


47151 


14 { 


+27) 


1420 


1464 


50 


25323 


1 | 


+30) 


1421 


1465 


30001 


121030 


1 ( 


+31) 


1422 


1514 


42150 


47145 


14 ( 


+32) 


1423 


1462 


50 


25323 


1 ( 


+33) 


1424 


1463 


30001 


127033 


1- i 


+34) 


1425 


1515 


42150 


47140 


14 < 


+35) 


1426 


1460 


50 


25323 


1 ( 


+36) 


1427 


1461 


30001 


135035 


1 ( 


+37) 


1430 


1516 


42150 


47134 


14 < 


+40) 


1431 


1456 


50 


25323 


1 | 


+41) 


1432 


1457 


30001 


103036 


1 | 


+42) 


1433 


1517 


42150 


47131 


14 < 


+43) 


1434 


1454 


50 


25323 


1 ( 


+44) 


1435 


1455 


30001 


111041 


1 ( 


+45) 


1436 


1520 


42150 


47125 


14 < 


+46) 


1437 


1452 


50 


25323 


1 ( 


+47) 


1440 


1453 


30001 


117042 


1 ( 


+50) 


1441 


1521 


42150 


47120 


14 ( 


+51) 


1442 


1450 


50 


25323 


1 ( 


+52) 


1443 


1451 


30001 


125045 


1 ( 


+53) 


1444 


1522 


42150 


4 7-115 


14 -' ( 


+54) 


1445 


1446 


50 


25323 


1 ( 


+55) 


1446 


1447 


30001 


133047 


1 ( 


+56) 


1447 


1523 


42150 


47110 


14 ( 


+57) 


1450 


1444 


50 


25323 


1 ( 


+60) 


1451 


1445 


30001 


101051 


1 ( 


+61) 
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EDALU.dlS 






13- 


Mar-80 11 


1452 


1524 


42150 


47104 1 


L4 


(+62) 


1453 


1442 


50 


25323 


1 


(+63) 


1454 


1443 


30001 


L01054 


1 


P0PM3 


1455 


1526 


30150 


3052 


1 


(+1) 


1456 


1525 


46150 


47100 


L4 


(+2) 


1457 


1440 


50 


25323 


1 


(+3) 


1460 


1441 


30001 


133056 


1 


(+4) 


1461 


1527 


46150 


47075 


14 


(+5) 


1462 


1436 


50 


25323 


1 


(+6) 


1463 


1437 


30001 


125061 


1 


(+7) 


1464 


1530 


46150 


47070 


14 


( + 10) 


1465 


1434 


50 


25323 


1 


( + 11) 


1466 


1435 


30001 


117063 


1 


(+12). 


1467 


1531 


46150 


47064 


14 


( + 13) 


1470 


1432 


50 


25323 


1 


(+14) 


1471 


1433 


30001 


111065 


1 


(+16) 


1472 


1532 


46150 


47061 


14 


( + 16) 


1473 


1430 


50 


25323 


1 


( + 17) 


1474 


1431 


30001 


103066 


1 


(+20) 


1475 


1533 


46150 


47054 


14 


(+21) 


1476 


1426 


50 


25323 


1 


(+22) 


1477 


1427 


30001 


135071 


1 


(+23) 


1500 


1534 


46150 


47051 


14 


(+24) 


1501 


1424 


* 50 


25323 


1 


(+25) 


1502 


1425 


30001 


127072 


1 


(+26) 


1503 


1535 


46150 


47045 


14 


(+27) 


1504 


1422 


50 


25323 


1 


(+30) 


1505 


1423 


30001 


121074 


1 


(+31) 


1506 


1536 


46150 


47040 


14 


(+32) 


1507 


1420 


50 


25323 


1 


(+33) 


1510 


1421 


30001 


113076 


1 


(+34) 


1511 


1537 


46150 


47034 


14 


(+35) 


1512 


1416 


50 


25323 


1 


(+36) 


1513 


1417 


30001 


105101 


1 


(+37) 


1514 


1540 


46150 


47031 


14 


(+40) 


1515 


1414 


50 


25323 


1 


(+41) 


1516 


1415 


30001 


137103 


1 


(+42) 


1517 


1541 


46150 


47025 


14 


(+43) 


1520 


1412 


50 


25323 


1 


(+44) 


1521 


1413 


30001 


131105 


1 


(+45) 


1522 


1542 


46150 


47020 


14 


(+46) 


1523 


1410 


50 


25323 


1 


(+47) 


1524 


1411 


30001 


123106 


1 


(+50) 


1525 


1543 


46150 


47015 


14 


(+51) 


1526 


1406 


50 


25323 


1 


(+52) 


1527 


1407 


30001 


115111 


1 


(+53) 


1530 


1544 


46150 


47010 


14 


(+54) 


1531 


1404 


50 


25323 


1 


(+55) 


1532 


1405 


30001 


107112 


1 


(+56) 


1533 


1545 


46150 


47001 


14 


(+57) 


1534 


1400 


50 


25323 


1 


(+60) 


1535 


1401 


30001 


101117 


1 


(+61) 


1536 


1547 


46150 


47004 


14 


(+62) 


1537 


1402 


50 


25323 


1 


(+63) 


1540 


1403 


30147 


21114 


15 


(+64) 


1541 


1546 


50 


25401 





(+65) 


1542 


4 


30450 


25013 





COMPAREO 


1543 


5 


50 


24004 





( + 1) 


1544 


b 3 


50 


25005 





FAIL 


1545 


2 


50 


25401 





SUCCESS 


1546 


636 


45 


1072 


2 


COMPARE 1 


1547 


635 


50 


25011 





( + 1) 


1550 


1153 


45 


1.131 


1 


C0MPARE2 


1551 


1154 


50 


25011 





(+1) 


1552 


1551 


45 


1120 


1 


C0MPARE3 


1553 


1550 


50 


25011 





( + 1) 


1554 


2331 


45 


1061 


3 


C0MPARE4 


1555 


2330 


50 


25011 





(+D 


1556 


2715 


45 


1031 


3 


C0MPARE5 


1557 


2714 


50 


25011 





( + 1) 
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Page 0: 4 locations used, 374 free 

Page 400: 341 locations used, 37 free 

Page 1000: 155 locations used, 223 free 

Page 1400: 154 locations used, 224 free 

Page 2000: 337 locations used, 



41 free 



EDALU.dl: 
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Page 2400: 323 locations used, 55 free 
RM: 








SO 


1 




SI 


2 




RT 


3 




OLDAPC 


4 


1 


REVISION 


5 




MCOUNT 


6 


11 


RUN-TIME 


7 





PASSCOUNT 


10 


1000 


MAXPASS 


11 




RLC8 


1me: 24 


second 


s; error(s) 



warnlng(s), 11798 words free 
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; :EDALULoc|. MIDAS : Logger for EDALU program 

By: J. Kellman Dec. 10 1979 

start L X AppendOutput EDALU. report; 

L X WriteMessage ..********** START EDALU Test : ; 

L X WriteDT; 

L X WriteMessage «************»*~ ; 

L X Skip .continue; 

breakpoint L X AppendOutput EDALU. report; 

L A18 SkipNE BADNOTIFY; 

L X Skip .badnotify; 

L A18 SkipNE BADWAKE+2; 

L X Skip .badwake; 

L A18 SkipNE TFILLRER: 

L X Skip .tfillrer; 

L A18 SkipNE TCHKRERO 

L X Skip .tchkrerO; 

L A18 SkipNE TCHKRER1 

L X Skip .tchkrerl; 

L A18 SkipNE TCHKRER2: 

L X Skip .tchkrer2; 

L A18 SkipNE ACHKRER; 

L X Skip .achkrer; 

L A18 SkipNE FAIL; 

L X Skip .fail; 

L A18 SkipNE PASSED-EDALU-TEST ; 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDALU. report ; 

L X WriteMessage *** FAILed: Not at my breakpoint -; 

L X WriteMessage ' Parity * ; 

R A0 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' CIA = ; 

R A18 Val : 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' CTASK = ; 

R A19 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' APCTASK = ; 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APC = ; 

R A16 Val : 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' TPC = ; 

R A13 Val ; 

L X WriteMessage: 

L X WriteMessage ~; 

L X CloseOutput; 
L X Exit; 

badnotify L X WriteMessage *** FAILed: at my Breakpoint Bad NOTIFY 

bad L X WriteMessage ' MCOUNT = 

R B8 Val ; 

l. X WriteMessage: 

! x WriteMessage ~: 
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L X WriteMessage 'TO* 

R B15 Val; 

L X WriteMessage: 

L X WriteMessage -; 

L X WriteMessage ' SO = ; 

R B16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' SI = 

R B17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X Skip .continue; 

. badwake L X WriteMessage •** FAILed: at my Breakpoint BAD WAKE -; 
L X BackSkip .bad; 

.tfillrer L X WriteMessage *** FAILed: at my Breakpoint T FILL R ERror ~; 
L X BackSkip .bad; 

. tchkrerO L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERrorO -; 
L X BackSkip .bad; 

. tchkrerl L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERrorl ~; 
L X BackSkip .bad; 

. tchkrer2 L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERror2 ~; 
L X BackSkip .bad; 

achkrer L X WriteMessage *** FAILed: at my Breakpoint Addr CHecK R ERror 
L X BackSkip .bad; 

fail L X WriteMessage *** FAILed: at my Breakpoint compare FAIL-; 
L X BackSkip .bad; 

passtest L X WriteMessage ~ PASSed EDALU Test : ; 

L X WriteOT; 

L X WriteMessage : 

L X Skip .continue; 

continue L X WriteMessage ~; 

L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 10000000; 

L X Continue: 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff: 

L X BackSkip .breakpoint; 
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L 


A19 Val 


L 


X Confirm 


L 


X Load EDALU 


I 


BO Addr REVISION 


L 


Bl Addr RUN-TIME 


L 


B2 Addr PASSCOUNT; 


L 


B3 Addr MAXPASS; 


L 


B8 Addr MCOUNT 


L 


B15 Addr T 


L 


B16 Addr SO 


L 


B17 Addr SI 


L 


X OisplayOn; 


L 


X TimeOut 10000 


L 


X SS GO 


L 


X Skip 1 


L 


X ShowError Single-step at GO hung 



•HP!" 



«** «** mm* mm* 



<DODiag>Rev-l>EDBitBlt.mc Revision 1 Dec. 6, 1979 



*** *** *** *** 



•a*****!!******************************************************************************** 

*** EDBitBlt.mc : Bit Boundary Block Transfer microcode 

*** Purpose : This test moves information from one region of main storage to another, 
modifying the information at the destination as the transfer 1s done. 
Hardware Configuration : Standard 4 CPU boards. 



*** 

*** 
• ** 



Written by : Tom Horsley, Nov. 15, 1977 
Modified by : Bill Kennedy, Mar. 10, 1978 
Took code off of Page 0. 
*** Modified by : Bill Kennedy, Apr. 7, 1978 

Added MPanel use. 
*•• Modified by : Chuck Thacker, Aug. 22. 1978 

Looped on errors. 
••• Modified by : Camellia Chan, Oct. 30. 1979 

Standardize title page, code format and labels, modified looping. 

******* at******************************************************************************** 



******* 4i*** 

♦SubTest De 

* SubTest 

* SubTest 



***************************************************************************** 



* SubTest 

* SubTest 
SubTest 

* SubTest 

SubTest 

* SubTest 

* SubTest 



scription: 
1: the number of 

(LoopCount) 1 
2: confirms that 

as the Simula 



times the hardware goes around 
s compared with the simulators 

the reason the hardware exited 
tors (simResult). The reasons 

1 ■ item done 

2 = fill source and destinat 

3 = fill source 

4 » fill destination 

3: confirm that the first word of the hardware 

matches the simulated equivalent (simDestO). 
4: confirm that the second word of the hardware 

matches the simulated equivalent (simDestl). 
5: confirm that the third word of the hardware 

matches the simulated equivalent (simDest2). 
6: confirm that the fourth word of the hardware 

matches the simulated equivalent (simDest3). 

7: confirm that the hardware register MNBR cont 

10: confirm that the hardware register SB contai 

11: confirm that the hardware register DB contai 



the loop to complete an Item 
loop count (simLoopCount) . 

the loop (Result) 1s the same 
are encoded as follows: 

ion 

destination quadword (DestO) 
destination quadword (Destl) 

destination quadword (Dest2) 

destination quadword (Dest3) 

ains the expected value (simNBR: 
ns the expected value (simSB). 
ns the expected value (simDB). 



* * * ^ 

nts 



SI * * * * HI * 

ireakPoi 
Errorl 
E rror2 

E rror3 

E rroi"4 : 
E rror5 : 

r rrorc : 



,<ssed-EDt> 



***** * * is * * # * * *Si**A**ins<**** ****** ***************** *************#*****##***#* 

hardware loop count does not equal to simulator's loop count, 
reason for hardware existed the loop is not the same as the simulator, 
the first word of the hardware destination quadword (DestO) does not match 
the simulated equivalent (simDestO). 

the second word of the hardware destination quadword (Destl) does not match 
the simulated equivalent (simDestl). 

the third word of the hardware destination quadword (Dest2) does not match 
the simulated equivalent (simDest2). 

the fourth word of the hardware destination quadword (Dest3; does not match 
the simulated equivalent (simDest3). 

the hardware register MNBR does not contain the expected value (simNBR). 
the hardware register SB does not contain the expected value (simSB). 
the hardware register DB does not contain the expected value , simDB). 
UBlt-Test: Passed all tests, and all passes. 



15:-: 



r-dgr 



**************************************************************************************** 



ShortLoop Logic Analyzer Sync Points at Control Store address: 



Errorl 

Error2 

Error3 

Error4 

Errors 

Error6 

Error7 

ErrorlO 

Errorll 



Control Store address 600 at Repeat. 

Control Store address 600 at Repeat. 

Control Store address 600 at Repeat. 

Control Store address 600 at Repeat. 

Control Store address 600 at Repeat. 

Control Store address 600 at Repeat. 

Control Store address 600 at Repeat. 
: Control Store address 600 at Repeat. 
: Control Store address 600 at Repeat. 



•Subroutine Description: 

* BitBlt: invoke hardware bitblt. 

* SimBitBlt: simulate a bitblt given simDB, simSB, simNBR, simOP, simMaskFillSrc, 

simBBFl. 

•Special Reg. Definition: 

* LoopOn: At any breakpoint, the user has the choice of setting LoopOn to 1, 2, 3, 4, 5, 6, 

7, 10, or 11 to loop from SubtestO to that subtest repeatedly for trouble shooting, 

0. no looping on any subtest. 

N, loop on subtest N, for N»l ,2.3 .4,5,6, 7, 10 . 11 . 

* XA and XB: The two random numbers held in these registers XA and XB are used to choose 

the bitblt starting values as follows: 



SB 






- 


XA[0. 6] 


DB 






- 


XA[6. 6] 


MaskDestination 


- 


XB[0. 1] 


Mask and 


Fill Source 


«- 


XBfl. 1] 


SALUF 


f unct ion 


- 


XB[2. 6] 


MNBR 






- 


-(XB[10. 7] - 1 


SrcO 






- 


XA 


Srcl 






- 


XB 


Src2 






- 


NOT XA 


Src3 






- 


NOT XB 


DestO 






«- 


XB 


Destl 






- 


XA 


Dest2 






- 





Dest3 






- 


177777 



Note that the random number generator has been constructed so that it produces each 

number in the range [0. 64K) once and only once before repeating any number. Thus it 

is guaranteed to exhaust all possible combinations of the fields derived from it each 
time the inner loop is exhausted. 



'■snerLoopCounter 

! s ? C c u n t 



16 bits inner loop counter. 



Outer loop pass counter, 
incremented eacn :. imp when !nn 



ccpCounter reacnea the 



is s 



under 



t ".mes outer loop is U 



rpeat before breakpo in t i ng 
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**************************************************************************************** 

•INITIALIZATION: 



BUIITIN[INSERT,24]; 
INSERT[d01ang]; 

TITLE[ED81tBU]; • 

SET[BB0. 1200]; * 

SET[BB1, 1300]; * 

SET[MainPage, 1]; * 

SET[SubPagel, 2]; * 



Bitblt test program, ED revision 

base for BBFB dispatch 

base for BBFBX dispatch 

tag for Main Program page number 

tag for Subroutine page number 



********* 



Macro constants: 



***•**•** 



MC[fmSource, 3]; * bitblt dispatch type indicating source ran out 



MC[fillDest. 4] 
MC[fillBoth. 2] 
MC[itemDone, 1] 



* bitblt dispatch type indicating destination ran out 

* bitblt dispatch type indicating both source and destination ran out 

* bitblt dispatch type indicating item done 



********* 



R-registers: 



RV 
RV 
RV 
RV 
RV 
RV 

RV 
RV 
RV 

RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 

RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 

RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 
RV 



CA.l]; * used in random number generation, A*XA + CA 

XA,2]; * random number generated via A*XA + CA 

CB.3]; * used in the random number calculation (a*XB + CB) 

XB,4]; * second random number 

InnerLoopCounter,5,0]; * 16 bits inner loop counter 

PassCount.6]; * Outer loop pass counter incremented each time when InnerLoopCounter 

* reached the limit 
MaxPass,7,2]; * number of times outer loop is to repeat before breakpolnting 
LoopOn, 13,0]; * loop on subtest 
SubTest,14]; * current location of test 



allOnes,15]; * 

Dest0.20]; * 
Destl.21]; 
Dest2,22]; 
Dest3,23]; 

destBitsToGo,24]; * 
clestF ieldDescriptor,25] 

destMask,26]; * 

destStart,27]; * 

destWord,30]; * 

loopCount,3lj; * 

MaskDest,32]; * 

nbits,33]; * 

Result, 34]; * 

simDB,35]; * 
simDest0,40] 
simOestl.41]; 
simDest2,42]; 
simDest3,43]; 

simLoopCount,44]; * 
.simMaskFillSrc,45]; * 

simNBR,46]; * 

simOp.47]; * 

simResult,52]; * 

simSB,53]; * 

Src0,54]; * 
Srcl,58]; 
Src2,56]; 
Src3,57]; 

srcBitsToGo,60]; * 
srcFieldDescriptor.61]; 

srcStart.62]; * 

srcWord,63]; * 

Tmp,64]; * 

tmpWord,65]; * 

Revision, 66, 1]; * 

Run-Time, 67, 14]; * 



holds 177777 during mask creations 
hardware bitblt destination quadword 



number of bits between current DB and next word boundary 

* describes the destination bit field 
mask used to set background in source field and/or clear destination field 
lower 4 bits of DB (word offset) 
working register for current destination word 
number of times through loop of hardware bitblt 

flag indicating whether to clear the destination field or leave it 
distance to next word boundary or the end of the item 
indicates which dispatch was taken out of hardware bitblt 
* (see fillSource etc. below) 
simulated bitblt's OB 
simulated bitblt destination quadword 



simulated bitblt loop count 

flag indicating whether background of source field should be or 1 

simulated bitblt MNBR 

simulated bitblt SALUF operator 

indicates which dispatch was indicated by simulated bitblt 

* (see fillSource etc. below) 

simulated bitblt SB 

source quadword for both bitbTt-'s 



number of bits, between current SB and next word boundary 

* describes the source bit field 

lower 4 bits of SB (word offset) 

working register for current source word 

temporary register 

temporary register 

REVISION 1 

Run-Time is 14b or 12 seconds 
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**************************************************************************************** 
*** MAIN routine: 

ONPAGE[MainPage]; 

go: 

start: PassCount «- 0C; 
CLEARMPANEl; 

♦Randomlnit (Initialize random generator registers: XA «- 123, CA *■ 33031) 
XA «- AND9[0377. 123]C; *Loadl6Bits (XA «- 123) 

XA ♦• (XA) OR (AMOQ[177400. 123]C); 

CA <- AND9[0377, 33031]C; *Loadl6B1ts (CA ♦■ 33031) 

CA «• (CA) OR (AND9[177400, 33031]C); 

*RandomInit (Initialize random generator registers: XB ♦■ 012300, CB «- 33037) 
XB «- AND9[0377, 012300]C; *Loadl6Bits (XB «■ 012300) 

XB «■ (XB) OR .(AND9[ 177400, 012300]C); 

CB «• AND9[0377, 33037]C; *Loadl6B1tS (CB 4. 33037) 

CB *• (CB) OR (AND9[177400. 33037]C); 

bigLoop: INCMPANEL; 

t ♦■ PassCount «- (PassCount) + 1; 

LU «- (MaxPass) - (t) : * check for maximum pass counter reached 

60T0[ThenlA, ALU >« 0]; 

Passed-EDBitBlt-Test: BREAKPOINT, goto[go]; 

ThenlA: XB ♦• (XB) + 1; 

mainloop: InnerLoopCounter ♦■ ( InnerLoopCounter) + 1; 
G0T0[bigLoop. CARRY]; 

* Random (4005*XA + CA mod 2**16) 

t «■ XA: 

t «- (LSII[XA, 2]) + t; 

t - (LSH[XA, 13]) + t; 

t ♦■ (CA) + t: 

XA ♦■ t; 

* Random (4005*XB + CB mod 2**16) 

t - XB; 

t «• (LSH[XB. 2]) + t; 

t - (LSH[XB, 13]) + t; 

t - (CB) + t; 

XB «• t; 

* SUBTEST 0: 

Repeat: Subtest «- OC; 
« TASK; * allow mouse halt 

* load source and destination registers 

t «• XA; 

srcO *■ t; 

src2 *■ (ZERO) OR NOT (t); 

destl «■ t; 

simDostl ♦• t; 

t *■ XB; 

srcl «• t; 

src3 ♦• (ZERO) OR NOT (t); 

destO <- t; 

simDestO *• t; 

dest2 «• OC; 

s1mDest2 ♦■ OC; 

dest3 ♦■ (ZERO) - 1; 

simOest3 «- (ZERO) - 1; 
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* load 06 and SB 

t «■ LDF[XA, 6, 6]; 

slmDB «- t; 

DB <- (simDB); 

t «- LDF[XA, 0, 6]; 

simSB «■ t; 

S8 «- (simSB); 

* load MNBR 

t «- (LDF[XB, 10, 7]) + 1; 
simNBR ♦- (ZERO) - t; 
MNBR ♦• (simNBR);. 

* load SALUF and related bits 

t «• LDF[XB, 0, 10]; 

SALUF «- t; 

t «- LDF[XB, 2, 6]; 

simOP ♦■ t; 

t «■ LDF[XB, 0, 1]; 

simMaskFillSrc ♦• t; 

t <- LDF[XB, 1, 1]; 

MaskOest *• t; 



* do it 



CompareResult: 
SUBTEST1: 



Errorl: 
SUBTEST2: 



Error2: 
SUBTEST3; 



Error3: 
SUBTEST4: 



Error4: 
SUBTEST5: 



LOADPAGE[SubPagel]; 
CALLP[Sim8itblt]; 
LOADPAGE[SubPagel]; 
CALLP[Bitblt]; 



subTest «■ 1C; 

t «- subTest; 

lu ♦■ (LoopOn)-(t); 

goto[.+2,ALU * 0]; 

goto[Repeat]; 

t «• simLoopCount; 

LU ♦- (LoopCount) - (t); 

GOTO[SUBTEST2. ALU = 0]; 

BREAKPOINT, goto[Repeat]; 

subTest ♦- 2C; 

t ♦■ subTest; 

lu *■ (LoopOn)-(t); 

goto[.+2,ALU H 0]; 

goto[Repeat]; 

t ♦■ simResult; 

LU ♦■ (Result) - (t); 

G0T0[SUBTEST3. ALU » 0]; 

BREAKPOINT , goto[Repeat] ; 



* check for looping on this subtest 

* hardware loop count is the same as simulator's loop count? 



* check for looping on this subtest 
reason for hardware existed the loop is the same as simulator? 



subTest ♦• 3C; 

t «- subTest; 

lu *■ (LoopOn)-(t); 

goto[.+2.ALU # 0]; 

goto[Repeat]; 

t *- simDestO; 

LU «- (DestO) - (t); 
GOTO[SUBTEST4, ALU = 0]; 
BREAKPOINT, go to[Repeat]; 

subTest f 4C; 

t ♦■ subTest; 

lu *- (LoopOn)-(t); 

goto[.+2,ALU ft 0]; 

goto[Repeat]; 

t «- simDestl; 

LU ♦■ (Destl) - (t); 
G0T0[SUBTEST5, ALU = 0]; 
BREAKPOINT, go to[Repeat]; 

subTest *• 5C; 

t *• subTest; 

lu *■ (LoopOn)-(t); 



* check for looping on this subtest 

* 1st word of the hardware dest. quadword matches the 

* simulated equivilent? 



* check for looping on this subtest 

* 2nd word of the hardware dest. quadword matches the 

* simulated equivilent? 
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Error5: 
SUBTESTS: 



Error6: 
SUBTEST7; 



Error7: 
SUBTEST10: 



ErrorlO: 
SUBTEST11: 



Errorll: 
TheEnd: 



goto[.+2,ALU n 0]; 
goto[Repeat]; 
t «- simDest2; 

LU «- (Dest2) - (t); 
GOTO[SUBTEST6. ALU - 0]; 
BREAKPOINT , goto[Repeat ] ; 

subTest ♦- 6C; 

t ♦■ subTest; 

lu ♦• (LoopOn)-(t); 

goto[.+2,ALU H 0]; 

goto[Repeat]; 

t «- s1mDest3; 

LU «- (Dest3) - (t); 
GOTO[SUBTEST7, ALU = 0]; 
BREAKPOINT, goto[Repeat]; 

subTest «• 7C; 

t ♦• subTest; 

lu «- (LoopOn)-(t); 

goto[.+2,ALU # 0]; * 

goto[Repeat]; 

t «• MNBR; * 

LU «- (simNBR) - (t); 
GOTO[SUBTEST10, ALU = 0]; 
BREAKPOINT, goto[Repeat]; 

subTest *• IOC; 

t <- subTest; 

lu *■ (LoopOn)-(t); 

goto[.+2.ALU n 0]; * 

gotoCRepeat]; 

t «- DBSB; * 

* 

Tmp *■ t; 

t *■ LDF[Tmp, 12, 6]; 
LU *• (simSB) - (t); 
GOTO[SUBTEST11. ALU = 0]; 
BREAKPOINT, goto[Repeat] ; 

subTest •• 11C; 

t *- subTest; 

lu ♦• (LoopOn)-(t); 

goto[.+2.ALU # 0]; * 

goto[Repeat]; 

t ♦• DBSB; * 

* 

Tmp «• t; 

t «- LDF[Tmp, 4, 6]; 
LU «- (simDB) - (t); 
GOTO[TheEnd. ALU * 0]; 
BREAKPOINT, goto[Repeat]; 

LOADPAGE[MainPage]; 
GOTOP[mainloop]; 



check for looping on this subtest 

3rd word of the hardware dest. quadword matches the 
simulated equlvllent? 



check for looping on this subtest 

4th word of the hardware dest. quadword matches the 
simulated equlvllent? 



check for looping on this subtest 

the hardware register MNBR contains the 
expected value (simNBR)? 



check for looping on this subtest 

the hardware register SB contains the 
expected value (simSB)? 



check for looping on this subtest 

the hardware register DB contains the 
expected value (simOB)? 
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**************************************************************************************** 

•SUBROUTINE 
ONPAGE[SubPagel]; 

********** SUBROUTINE: Bitblt **•••***•* 

• 

* invoke harware bltblt 



Bltblt: 



LoopCount «- 0C; 
GOTO[maskTheOest1nat1on, MB]; 



don tMaskDesti nation: 

BBFB; 
BBLoopO: 



* initialize internal bitblt registers 
LoopCount «- (LoopCount) + 1, AT[BB0, 07]; 
t «- BBFA[SB[srcO]] OR (t); 
DB[dest0] <- (BBFBX[DB[dest0]]) SALUFOP (t), 0ISP[BBLoop0]; 



BBFillSourceO: Result «• fill.Source, RETURN, AT[BBQ, 05]; 

BBFillDestO: Result ♦■ fillDest. RETURN, AT[BB0, 06]; 

BBFillBothO: Result «• fillBoth, RETURN, AT[BB0, 04]; 

BBItemOoneO: Result «• itemOone, RETURN, AT[8B0, 03]; 



maskTheDesti nation: 

BBFB; 
BBLoopl: 



* initialize internal bitblt registers 
LoopCount <- (LoopCount) + 1, AT[BB1, 07]; 
t - BBFA[S8[src0]] OR (t); 
DB[dest0] ♦■ (BBFB[DB[dest0]]) SALUFOP (t), DISP[8BLoopl]; 



BBFillSourcel: Result «■ fillSource, RETURN, AT[BB1. 05]; 
BBFillDestl: Result <- fillDest, RETURN, AT[BB1, 06]; 
BBFillBothl: Result •• fillBoth. RETURN, AT[BB1. 04]; 
BBItemDonel: Result «- itemDone, RETURN, AT[BB1, 03]; 
RETURN; 
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********** SUBROUTINE: S1mB1tblt **•***•••* 

* simulate a bitbl it given simOB, simSB. slmNBR. simOp, simMaskFillSrc, simBBFl 

SimBitblt: simLoopCount «- OC; 

SimBltStart: simLoopCount «■ (simLoopCount) + 1; 

* get correct source word, based on simSB 
t ♦• LDF[simSB. 12. 2]; 
tmpWord ♦- t; 

LU ♦• (tmpWord); j , „ „ 

GOTO[TrySrcl, ALU # 0]; * go to TrySrcl if the correct source word 1s not SrcO 
t «- (SrcO); ' * Copy (srcWord «- SrcO) 

srcWord «• t; 
GOTO[CalSrcB1t]; 

LU «• (tmpWord) - (1C); 

GOTO[TrySrc2, ALU #0]; * go to TrySrc2 if the correct source word is not Srcl 



TrySrcl: 



TrySrc2 



IsSrc3: 



t *■ (Srcl); 
srcWord «- t; 
GOTO[CalSrcB1t]; 

LU «- (tmpWord) - (2C); 
GOTO[IsSrc3. ALU it 0]; 
t ♦• (Src2); 
srcWord «• t; 
GOTO[CalSrcBit]; 

t «- (Src3); 
srcWord «- t; 



* Copy (srcWord «• Srcl) 



* go to IsSrc3 1f the correct source word 1s not Src2 

* Copy (srcWord «- Src2) 



* Copy (srcWord ♦• Src3) 



* calculate actual source bit related values 
CalSrcBIt: t «■ LDF[simSB, 14. 4]; 

srcStart «- t; 
srcBitsToGo «- (ZERO) - t; 
srcBitsToGo «■ (srcBitsToGo) + (20C); 

* get correct destination word, based on sim08 

t «- LDF[simDB. 12, 2]; 
tmpWord *• t; 
LU ♦• (tmpWord); 
GOTO[TryOestl. ALU # 0]; 



TryOestl: 



TryOest2 



IsDest3: 



t «- (simDestO) ; 
destWord «- t; 
G0T0[CalDstBit]; 

LU «• (tmpWord) - (1C); 
G0T0[TryDest2, ALU # 0]; 

t ♦- (simDestl); 
destWord «- t; 
GOTO[CalDstBit]; 

LU «■ (tmpWord) - (2C); 
G0T0[IsDest3. ALU # 0]; 

t *- (sim0est2); 
destWord «- t; 
GOTO[CalDstBit]; 

t ♦• (simQest3); 
destWord *■ t; 



* go to TryDestl if the correct destination word is 

* not simDestO 

* Copy (destWord ♦• simDestO) 



* go to TryDest2 if the correct destination word is 

* not simDestl 

* Copy (destWord ♦• simDestl) 



* go to IsDest3 if the correct destination word is 

* not simDest2 

* Copy (destWord «- simDest2) 



* Copy (destWord <- s1mDest3) 



* calculate actual destination bit related values 
CalDstBit: t *- LDF[simDB, 14, 4]; 

destStart + t; 
destBitsToGo + (ZERO) - t; 
destBitsToGo ♦■ (destBitsToGo) + (20C); 

* calculate number of bits to next word boundary (or end) 

t «- destBitsToGo; 
LU «• (srcBitsToGo) - (t); 

G0T0[GetSrcB1t, ALU < 0]; * go to GetSrcBit if srcBitsToGo is less than 

* destBitsToGo 
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t «• (destBUsToGo); 
nbits ♦• t; 
GOTO[ThenNBR]; 

GetSrcBit: t •• (srcBitsToGO); 
nbits «■ t; 

ThenNBR: t «■ nbits; 

LU «■ (slmNBR) +' (t); 
GOTO[SrcField, ALU < 0]; 
t <- (SlmNBR); 
nbits «• (ZERO) - t; 



* Copy (nbits ♦• destBUsToGo) 

* Copy (nbits «- srcBltsToGo) 

* Copy-( nbits «• -slmNBR) 



* create source field descriptor 
SrcField: t «• LSH[srcStart, 4]; 

srcF1eldOescr1ptor «• t; 

t «• (nbits) - 1; 

srcF1eldDescr1ptor ♦• (srcFieldDescrlptor) OR t; 

* load the source field 

CYCLECONTROL «-srcF1eldDescr1ptor; 

t «- RF[srcWord]; 

s re Word ♦• t; . 

* create destination field descriptor 

t «- LSH[destStart, 4]; 

destFleldOescriptor «■ t; 

t *• (nbits) - 1; 

destFieldDescriptor «• (destFleldOescriptor) OR t; 

* set up mask 

allOnes <-(ZERO) - 1; 

destMask ♦• 0C; 

CYCLECONTROL «-destF1eldDescr1ptor; 

t «- WFA[allOnes]; 

destMask «• WFB[(destMask) OR (t)]; 

* align source with destination 

tmpWord *• 0C; 

CYCLECONTROL «-destFiel dDescMptor ; 

t *■ WFA[srcWord]; 

tmpWord «- WFB[(tmpWord) OR (t)]; 



t «- (tmpWord); 
srcWord ♦■ t; 

* set source background bits if required 
LU «- (simMaskFillSrc); 
GOTO[ClearDBit, ALU # 0]; 

t «- (destMask); 

srcWord ♦■ (srcWord) OR NOT t; 



* Copy (srcWord «- tmpWord) 



* go to ClearDBIt if source background bits do not 

* need to be set 

* set source background bits 



* clear destination bits 1f required 
Cle.arDBU: LU «- (MaskOest); 

GOTO[ Perform, ALU - 0]; 

t ♦■ (destMask); 

destWord <- (destWord) AND NOT t; 



* go to Perform if destination bits do not need 

* to be cleared 

* clear destination bits 



Perform: t ♦• (srcWord); - 

destWord «- ( destWord )~SALUFOP t; 



* stuff result into correct destination register 
t «- LDF[simDB, 12. 2]; - 
tmpWord ♦• t; 
LU «■ (tmpWord); 
GOTO[TrySim01. ALU # 0]; 



* perforiir-tbe operation 



t .«- (destWord); 
simDestO ♦■ t; 
GOTO[IncB1tCnt]; 

TrySimDl: LU *■ (tmpWord) - (1C); 

G0T0[TrySimD2. ALU # 0]; 

t «- (destWord); 



* go to TrySimDl if the correct dest. reg. is not 

* simDestO 

* .Copy (simDestO «- destWord) 



* go to TrySimD2 if the correct dest. reg. is not 

* simDestl 

* Copy (simDestl «- destWord) 
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simOestl ♦■ t; 
G0T0[IncB1tCnt]; 

TrySim02: LU «■ (tmpWord) - (2C); 

GOTO[IsSimD3, ALU # 0]; * go to IsS1mD3 1f the correct dest. reg. is not simDest2 
t «■ (destWord); * Copy (simDest2 «• destWord) 

s1mDest2 «- t; 
GOTO[IncBUCnt]; 

IsS1mD3: t «■ (destWord); * Copy (simDest3 «- destWord) 

simDest3 «- t; 

* Increment various bit counters 
IncBitCnt: t «■ (nblts); 

simSB ♦• (slmSB) + t; 
simSB «■ LDF[s1mSB, 12, 6]; 
simDB «- (simDB) + t; 
simDB «• LDF[simDB. 12. 8]; 
simNBR «• (simNBR) + t; 

* decide 1f finished or not 

LU «- (simNBR); M MX x _ 

GOTO[CheckSB, ALU # 0]: * go to CheckSB if simulated bitblt MNBR did not finish 
simResult *■ 1C, RETURN; * item done, return to main program 

CheckSB: LU «- (simSB); ^^ 

G0T0[CheckDB, ALU # 0]; * go to CheckDB if simulated bitblt SB did not finish 
LU «- (simDB); 

GOTO[SrcOut, ALU #0]; * go to SrcOut 1f simulated bitblt DB did not finish 

simResult *• 2C, RETURN; * source and destination ran out, return to main program 

SrcOut: simResult *■ 3C, RETURN; * source ran out, return to main program 

CheckDB: LU *■ (simDB); ^ jja ^ ., . . 

G0T0[NotF1n1sh. ALU if 0]; * go to NotFinish if simulated bitblt DB did not finish 
simResult «- 4C. RETURN; * destination ran out, return to main program 

NotFinish: GOTO[SimBltStart] ; * not finished 
RETURN; 

end; * to end the MAIN routine 
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After BitBLT Loop: 

SBX » 
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Source: 



Destination: 



MWX ♦ 1 bits 



1 |1 |0|1 |0 |0 i 1 lO i 1 



DBX 
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The BitBLT inner loop transfers as much of one word as possible between the source 
and destination buffers. This number is the minumum of (1) the number of bits required 
to reach the next source word boundary, (2) the number of bits required to reach 
the next destination word boundary, and (3) the number of bits remaining in the 
cunrent item (-MNBR). This_quantity is calculated by PROMS from the registers SB, DB, 
and MNBR, and is loaded into the register MWX (precisely, MWX «- min(...) -1) when BBFB 
or BBFBX is executed. The BBFA function (F1 = 0) , left-cycles and masks the source data 
(from R) in the cycler masker. The cycle count is SBX - DBX, and the source mask extends 
from bits DBX to bit DBX + MWX. The diagram above illustrates the source and destination 
words and the values of SBX and DBX before and after a single iteration of the BitBLT loop. 
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50 


25001 


2 


(+4) 




163 


421 


10150 


65134 


15 


(+5) 




164 


556 


21450 


25132 


15 


(+6) 




165 


555 


50 


24045 





(+7) 




166 b 


423 


50 


25001 


2 


ERR0R6 




167 


422 


36000 


117130 


1 


SUBTEST7 




170 


554 


36150 


65127 


1 


( + 1) 




171 


553 


35450 


25125. 


15 


(+2) 




172 


552 


50 


24031 





(+3) 




173 


414 


50 


25001 


2 


(+4) 




174 


415 


66150 


41147 


15 


(+5) 




175 


563 


13450 


25145 


11 


(+6) 
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176 


562 


50 


24034 





(+7) 


177 1 


i 417 


50 


25001 


2 


ERROR7 


200 


416 


36000 


121142 


1 


SUBTEST10 


201 


561 


36150 


65141 


1 


( + 1) 


202 


560 


35450 


25137 


15 


(+2) 


203 


557 


50 


24015 





; (+3) 


204 


406 


50 


25001 


2 


(+4) • 


205 


407 


64150 


41176 


15 


(+5) 


206 


577 


2050 


125174 


1 


(+6) 


207 


576 


2165 


41173 


1 


(+7) 


210 


575 


15450 


25171 


15 


( + 10) 


211 


574 


50 


24025 





( + 11) 


212 1 


t> 413 


50 


25001 


2 


ERROR10 


213 


412 


36000 


123167 


1 


SUBTEST11 


214 


573 


36150 


65165 


1 


( + 1) 


215 


572 


35450 


25162 


15 


(+2) 


216 


571 


50 


24020 





(+3) 


217 


410 


50 


25001 


2 


(+4) 


220 


411 


64150 


41161 


15 


(+5) 


221 


570 


2050 


125156 


1 


(+6) 


222 


567 


2164 


65155 


1 


(+7) 


223 


566 


27450 


25153 


5 


( + 10) 


224 


565 


50 


24010 





(+11) . 


225 


b 405 


50 


25001 


2 


ERR0R11 


226 


404 


45 


3150 


1 


THEENO 


227 


564 


50 


25026 


2 


( + 1) 


230 


1044 


24020 


101122 


4 


BITBLT 


231 


1051 


50 


24706 





( + 1) 


232 


1042 


52 


25017 


2 


DONTMASKDESTINATION 


233 


91207 


25050 


125114 


4 


BBLOOPO 


234 


1046 


56340 


41112 


4 


( + 1) 


235 


1Q45 


61755 


125616 


12 


(+2) 


236 


91205 


26000 


107401 





BBFILLSOURCEO 


237 


91206 


26000 


111400 





BBFILLDESTO 


240 


91204 


26000 


105400 





BBFILLBOTHO 


241 


91203 


26000 


103400 





BBITEMDONEO 


242 


1043 


52 


25016 


3 


MASKTHEDESTINATION 


243 


91307 


25050 


125121 


4 


BBL00P1 


244 


1050 


56340 


41117 


4 


( + 1) 


245 


1047 


61752 


125616 


13 


(+2) 


246 


91305 


26000 


107401 





BBFILLS0URCE1 


247 


91306 


26000 


111400 





BBFILLDEST1 


250 


91304 


26000 


105400 





BBFILLB0TH1 


251 


91303 


26000 


103400 





BBITEMD0NE1 


252 


1052 


50 


25401 





( + 1) 


253 


1053 


12020 


101040 


2 


SIMBITBLT 


254 


1220 


13050 


125037 


2 


SIMBLTSTART 


255 


1217 


14161 


65035 


16 


( + 1) 


256 


1216 


2050 


125033 


6 


(+2) 


257 


1215 


2150 


25030 


6 


(+3) 


260 


1214 


50 


24100 





(+4) 


261 


1040 


16150 


65027 


2 


(+5) 


262 


1213 


50 


125024 


16 


(+6) 


263 


1212 


50 


25023 


2 


(+7) 


264 


1041 


3400 


3135 


4 


TRYSRC1 


265 


1056 


50 


24075 





( + 1) 


266 


1036 


16150 


65132 


4 


(+2) 


267 


1055 


50 


125130 


14 


jf+3) 

t+4) ..„.__ 


270 


1054 


50 


25023 


2 


271 


1037 


3400 


5142 


4 


TRYSRC2 


272 


1061 


50 


24070 





( + !)""' 


273 


1034 


16150 


65140 


10 


(+2) 


274 


1060 


50 


125136 


14 


(+3) 


275 


1057 


50 


25023 


2 


(+4) -■ 


276 


1035 


16150 


65144 


14 


ISSRC3 


277 


1062 


50 


125022 


16 


( + 1) 


300 


1211 


14163 


63020 


16 


CALSRCBIT 


301 


1210 


• 50 


125004 


12 


( + 1) 


302 


1202 


1476 


101002 


2 


(+2) 


303 


1201 


1101 


101001 


2 


(+3) 


304 


1200 


26161 


65176 


5 


(+4) 


305 


1177 


2050 


125175 


5 


(+5) 


306 


1176 


2150 


25173 


.5 


(+6) 


307 


U75 


50 


24064 





( + 7) - 


310 


1032 


10150 


65170 


1 


( + 10) 


311 


1174 


24050 


125167 


1 


( + 11) 
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312 


1173 


50 


25165 


I 


( + 12) 


313 


1033 


3400 


3153 


4 


TRYDEST1 


314 


1065 


50 


24061 





( + 1) 


315 


1030 


10150 


65151 


4 


(+2) 


316 


1064 


24050 


125147 





(+3) 


317 


1063 


50 


25165 


1 


(+4) 


320 


1031 


3400 


5160 


4 


TRYDEST2 


321 


1070 


50 


24054 





( + 1) 


322 


1026 


10150 


65157 


10 


(+2) 


323 


1067 


24050 


125155 





(+3) 


324 


1066 


50 


25165 


1 


( + 4) 


325 


1027 


10150 


65163 


14 


ISDEST3 


326 


1071 


24050 


125164 


1 


( + 1) 


327 


1172 


26163 


63163 


5 


CALDSTBIT 


330 


1171 


22050 


125161 


15 


( + 1) 


331 


1170 


23476 


101156 


1 


(+2) 


332 


1167 


23101 


101155 


1 


(+3) 


333 


1166 


22150 


65153 


1 


( + 4) 


334 


1165 


1450 


25150 


1 


(+5) 


335 


1164 


50 


24250 


.0 


(+6) 


336 


1024 


22150 


65147 


1 


( + 7) 


337 


1163 


24050 


125145 


15 


( + 10) 


340 


1162 


50 


25142 


1 


( + 11) 


341 


1025 


150 


65164 





GETSRCBIT 


342 


1072 


24050 


125143 


15 


( + 1) 


343 


1161 


24150 


65141 


15 


THENNBR 


344 


1160 


13150 


25137 


11 


( + D 


345 


1157 


50 


24205 





(+2) 


346 


1002 


12150 


65134 


11 


(+3) 


347 


1156 


25476 


101006 


14 


(+4) 


350 


1003 


174 


51133 


11 


SRCFIELD 


351 


1155 


50 


125130 


5 


( + 1) 


352 


1154 


25350 


65127 


15 


(+2) 


353 


1153 


350 


125124 


5 


(+3) 


354 


1152 


150 


11123 


5 


(+4) 


355 


1151 


154 


65120 


15 


(+5) 


356 


1150 


50 


125116 


15 


(+6) 


357 


1147 


22174 


51115 


15 


(+7) 


360 


1146 


22050 


125112 


5 


( + 10) 


351 


1145 


25350 


65111 


15 


( + 11) 


362 


1144 


22350 


125106 


5 


( + 12) 


363 


1143 


37376 


101105 


5 


( + 13) 


364 


1142 


22020 


101102 


11 


( + 14) 


365 


1141 


22150 


11101 


5 


( + 15) 


366 


1140 


36151 


65076 


5 


( + 16) 


367 


1137 


22353 


125075 


11 


( + 17) 


370 


1136 


2020 


101073 


5 


(+20) 


371 


1135 


22150 


11071 


5 


(+21) 


372 


1134 


151 


65066 


15 


(+22) 


373 


1133 


2353 


125065 


5 


(+23) 


374 


1132 


2150 


65062 


5 


(+24) 


375 


1131 


50 


125060 


15 


(+25) 


• 376 


1130 


12150 


25057 


5 


(+26) 


377 


1127 


50 


24010 





(+27) 


400 


1004 


22150 


65055 


11- 


(+30) 


401 


1126 


650 


125013 


14 


(+31) 


402 


1005 


24150 


25052 


11 


CLEARDBIT 


403 


1125 


50 


24045 





( + 1) 


404 


1023 


22150 


65166 


10 


(+2) 


405 


1073 


24550 


125045 





(+3) 


406 


1022 


150 


65051 


15 


PERFORM 


407 


1124 


25750 


125047 


1 


( + 1) 


410 


1123 


26161 


65044 


5 


(+2) 


411 


1122 


2050 


125042 


5 


(+3) 


412 


1121 


2150 


25041 


5 


(+4) 


413 


1120 


50 


24040 





(+6) 


414 


1020 


24150 


65037 


1 


(+6) 


415 


1117 


10050 


125034 


1 


(+7) 


416 


1116 


50 


25032 


1 


( + 10) 


417 


1021 


3400 


3174 


4 


TRYSIMD1 


420 


1076 


50 


24034 


J 


" ( + 1) 


421 


1016 


24150 


65173 





(+2) 


422 


1075 


10050 


125171 


4 


(+3) 


423 


1074 


50 


25032 


1 


(+4) 


424 


1017 


3400 


5003 


5 


TRYSIMD2 


425 


1101 


50 


24031 





( + 1) 
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426 


1014 


24150 


65001 


1 


(+2) 


427 


1100 


10050 


125177 


10 


(+3) 


430 


1077 


50 


25032 


1 


(+4) 


431 


1015 


24150 


65004 


1 


ISSIM03 


432 


1102 


10050 


125032 


15 


( + 1) 


433 


1115 


24150 


65031 


15 


INC8ITCNT 


434 


1114 


15150 


125027 


15 


( + 1) 


435 


1113 


14165 


101025 


15 


(+2) 


436 


1112 


27150 


125022 


5 


(+3) 


437 


1111 


26165 


101020 


5 


(+4) 


440 


1110 


13150 


125016 


11 


(+5) 


441 


1107 


12150 


25015 


11 


(+6) 


442 


1106 


50 


24025 





.( + 7) 


443 


1012 


14000 


103400 


10 


(+10) ' 


444 


1013 


14150 


25012 


15 


CHECKSB 


445 


1105 


50 


24015 





( + 1) 


446 


1006 


26150 


25006 


5 


(+2) 


447 


1103 


50 


24020 





(+3) 


450 


1010 


14000 


105400 


10 


(+4) 


451 


1011 


14000 


107401 


10 


SRCOUT 


452 


1007 


26150 


25011 


5 


CHECKOB 


453 


1104 


50 


24001 





( + 1) 


454 


1000 


14000 


111400 


10 


(+2) 


455 


1001 


'50 


25040 


2 


NOTFINISH 


456 


1221 


50 


25401 





( + 1) 
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Page 400: 230 locations used, 150 free 
Page 1000: 227 locations used, 151 free 

RM: 



1 


CA 


2 


XA 


3 


CB 


4 


XB 


5 


INMERLOOPCOUNTER 


6 


PASSCOUNT 


7 


2 MAXPASS 


13 


LOOPON 


14 


SUBTEST 


15 


ALLONES 


20 


DESTO 


21 


DEST1 


22 


DEST2 


23 


DEST3 


24 


DESTBITST060 


25 


DESTFIELDDESCRIPTOR 


26 


DESTMASK 


27 


OESTSTART 


30 


DESTWORD 


31 


LOOPCOUNT 


32 


MASKDEST 


33 


NBITS 


34 


RESULT 


35 


SIMDB 


40 . 


SIMDESTO 


41 


SIMDEST1 


42 


SIMOEST2 


43 


SIMDEST3 


44 


SIMLOOPCOUNT 


45 


SIMMASKFILLSRC 


46 


SIMNBR 


47 


SIMOP 


52 


SIMRESULT 


53 . 


SIMSB 


54 


SRCO 


55 


SRC1 


56 


.SRC2 


57 


SRC3 


60 


SRCBITSTOGO 


61 


SRCFIELDDESCRIPTOR 


62 


SRCSTART 


63 


SRCWORD 


64 


TMP 


65 


TMPWORD 


66 


1 REVISION 
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67 14 RUN-TIME 
70 RLC8 

Time: 11 seconds; error(s), warning(s). 11504 words free 
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. i:i)U ilBltLog. MIDAS 



Logger Tor EDBitBlt program 
By: C. Iseng 



Dec. 6, 1979 



start L X AppendOutput EDBitBlt. report ; 

L X WriteMessage -********** START EDBitBlt Test 

L X WriteDT; 

L X WriteMessage ***************„ ; 

L X Skip .continue; 



breakpoint 



L X AppendOutput EDBi tBl t. report ; 

L A18 SkipNE ERRORl; 

L X Skip .errorl; 

L A18 SkipNE ERROR2; 

L X Skip .error2; 

L A18 SkipNE ERR0R3; 

I. X Skip .error3; 

L A18 SkipNE ERR0R4; 

L X Skip .error4; 

L A18 SkipNE ERRORS; 

L X Skip .errorS; 

L A18 SkipNE ERR0R6; 

L X Skip .error6; 

L A18 SkipNE ERROR7; 

L X Skip .error7; 

L A18 SkipNE ERROR10; 

L X Skip .errorlO; 

L A18 SkipNE ERROR11; 

L X Skip .errorll; 

L A18 SkipNE PASSED-EDBITBLT-TEST; 

L X Skip .passtest; 

notmybreak L X AppendOutput EDB itBU. report ; 

L X WriteMessage *** FAILed: Not at my breakpoint 

L X WriteMessage ' Parity = ; 

R AO Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CIA = ; 

R A18 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK » ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK = ; 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APC = ; 

R A16 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' TPC » ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 
L X Exit; 



errorl I. X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * LoopCount does not equal to SimLoopCount 

L X WriteMessage ' LoopCount ■ ; 

R B14 Val; 

L X WriteMessage; 
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bad 



error2 



, error3 



error4 



error5 



error6 



L X WriteMessage ~; 

L X WriteMessage ' S iniLoopCount 

R B15 Val; 

L X WriteMessage; 

L X WriteMessage -; 



L X WriteMessage ' 

R B4 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' 

R B2 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X Skip .continue; 



SUBTEST 



PASSCOUNT 



FAILed: 



Result 



at my Breakpoint -; 

Result does not equal to SimResult 



L X WriteMessage 

L X WriteMessage 

L X WriteMessage 

R B16 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' SimResult = 

R B17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** FATLed: at my Breakpoint -; 

L X WriteMessage * DestO does not equal to SimDestO 

L X WriteMessage ' DestO = ; 

R B6 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' SimDestO = ; 

R B7 VaJ ; 

L X Wr i teMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** TAILed: at my Breakpoint -; 

L X WriteMessage * Destl does not equal to SimDestl 

L X WriteMessage ' Destl 3 ; 

R B8 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' SimDestl = ; 

R B9 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * Dest2 does not equal to SimDest2 

L X WriteMessage ' Dest2 - ; 

R BIO Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' SimDest2 ■ ; 

R Bll Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X BackSkip .bad; 



L X WriteMessage *** FAILed: 

L X. Wri teMessage * • 

L X WriteMessage ' Dest3 = 

R B12 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' SimDest3 

R B13 Val; 

L X WriteMessage; 

L X WriteMessage -; 



at my Breakpoint -; 

Dest3 does not equal to SimDe.st3 
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L X BackSkip .bad; 

.error7 L X WriteMessage *** FAILed: at my Breakpoint -; 

L X WriteMessage * MNBR does not equal to SimNBR ~; 

L X WriteMessage ' MNBR » ; 

R B18 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage * SimNBR = 

R B19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

.errorlO L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * SB does not equal to SimSB ~; 

L X WriteMessage ' SB = ; 

R C6 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' SimSB » 

R C7 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X BackSkip .bad; 

.errorll L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * DB does not equal to SimDB ~; 

L X WriteMessage ' DB = ; 

R C8 Val ; 

L X WriteMessage; 

L X WriteMessage ~; . 

L X WriteMessage ' SimDB = ; 

R C9 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

.passtest L X WriteMessage - - PASSed EDBitBlt Test : ; 

L X WriteDT; 

I. X WriteMessage ~ ; 

L X Skip .continue; 

.continue L X WriteMessage ~; 
L X CloseOutput; 
L X DisplayOn; 
L X Confirm; 
L X TimeOut 10000000; 
L X Continue; 
L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 
L X BackSkip .notmybreak; 
L X DisplayOff; 
L X BackSkip .breakpoint; 
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[ A19 Val 
l X C o n f i cm 
L X Load EDBirBLF; 



BO Addr 

Bl Addr 

B2 Addr 

B3 Addr 



1 B4 Addr 

L B6 Addr 

L B7 Addr 

L B8 Addr 



L B9 Addr 
!_ BIO Add 
L Bll Add 
I. B12 Add 
1 B 13 Add 
L B14 Add 
L B15 Add 
I. B16 Add 
I. B17 Add 
1. B13 Add 
L B19 Add 



REVISION; 
RUN-TIME; 
PASSCOUNT; 
MAXPASS; 
SUBTEST; 
DESTO; 
SIMDESTO; 
DEST1; 
SIMOEST1; 
r DEST2; 

SIMDEST2; 

DEST3; 

SIMDEST3; 

LOOPCOUNT; 

S1MLOOPCOUNT; 

RESULT; 

SIMRESULT; 

MNBR; 

SIMNBR; 



C6 Addr SBRE6; 

C7 Addr SIMSB; 

C8 Addr DBREG; 

C9 Addr SIMDB; 

C12 Addr SRCO; 

C13 Addr SRCl; 

C14 Addr SRC2: 
I C15 Addr SRC3 
L C18 Addr LOOPON; 

X I) i splay On; 

X TimeOut 10000 

X SS GO 

X Skip I 

X ShowError Single-step at GO hung 
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*** *** «** *** 



<D0D1ag>Rev-l>EDCSEx.mc Revision 1 Nov 13,1979 



*** **• «** «*« 



********* *******************************************************,»,»*«*,»*«,*,»,»**,»*»*„****«» 



*** 

*** 

*** 

*** 

*** 



EDCSEx.mc : Control Store Exerciser microcode 

Purpose : This test exercises the control store as a 4K x 36 bit memory. 

Only locations not occupied by the program or the kernel are exercised, 
Minimum Hardware : Standard 4 CPU boards. 
Approximate Run Time : 30 seconds. 
Written by : C. Thacker, Dec. 12, 1978 

Added link saving to writeCS and readCSX to save link 
smashed by control store operations 



Modified by 



T. Henning, Oct. 5, 1979 



Standardize title page and code format. 
*** Modified by : T. Henning, Oct. 15. 1979 

Implement looping and standard labels. 
*** Modified by : T. Henning, Oct. 24, 1979 

Added capability for all zeros, all ones, and checker patterns. 
******************************* ********************************************************* 



********** ************************* ***************************************************** 
*SubTest Description: 

* SubTest 0: writes a data pattern into each location, reads the contents back 

and compares them with what was written. 

* SubTest 1: reads each location and compares them with what was written. 

**************************************************************************************** 
♦Breakpoints: 

* WORD0BAD: Word of the Control Store read did not match word written in SubTestO. 

* W0RD1BAD: Word 1 of the Control Store read did not match word 1 written in SubTestO. 

* W0RD2BAD: Word 2 of the Control Store read did not match word 2 written in SubTestO. 

* WORDOBADREAD: Word of the Control Store read did not match word in SubTestl. 

* W0RD1BADREAD: Word 1 of the Control Store read did not match word 1 in SubTestl. 

* W0RD2BADREAD: Word 2 of the Control Store read did not match word 2 in SubTestl. 

* Passed-CDCSEx-Test: Passed all tests, and all passes. 

******** ******************************************************************************** 

* ShortLoop Logic Analyzer Sync Points at Control Store address: 

* WORDOBAD: Control Store address 424 at TESTLOOP0. 

* W0RD1BAD: Control Store address 424 at TESTLOOP0. 

* WORD2BAD: Control Store address 424 at TESTLOOP0. 

* WORDOBADREAD: Control Store address 464 at TESTLOOP1. 

* W0RD1BADREAD: Control Store address 464 at TESTLOOP1. 

* W0RD2BADREAD: Control Store address 464 at TESTL00P1. 
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**************************************************************************************** 
•Special Reg. Definition: 

* ShortLoop: At any breakpoint, the user has the choice of setting ShortLoop to a 1 to 
loop on the current test. During the short loop, the user can modify the address 
and data to the Control Store at will by changing CurrentLoc and WdO, Wdl, and Wd2 

1, the current test will loop repeatedly for trouble shooting 
0, no looping in current test 



* PatternChoice: 



Bit 15 - all zeros pattern, enable by 1. disable by 

Bit 14 - all ones pattern, enable by 1, disable by 

Bit 13 - checker pattern, enable by 1, disable by 

Bit 12 - random pattern, enable by 1, disable by 

Example: PatternChoice=l enables the all zeros pattern only 
PatternChoice=2 enables the all ones pattern only 
PatternChoice«4 enables the checker pattern only 
PatternChoice=10 enables the random pattern only 
PatternChoice=17 enables all four of the patterns 
PatternChoice»ll enables the random and all zeros patterns 



* LoopControl 

bit 


1 
1 
Note that 
foreve 
differ 

************** 

•Subroutine De 

* FillBuf: 



: bit & 15 are used to control the type of looping 
bit 15 

wri 

1 wri 

wri 

1 wri 
if the addres 
r. Also, dur 
ent value was 



te/read VARYing data at ONE address 
te/read VARYing data at ALL address 
te & check CONSTANT data at ONE address 
te/read CONSTANT data at ALL address 

s is not allowed to increment, the program will stay in the write loop 
ing the read loop, it 1s not sensible to have LoopControl .0 =1, since a 
written into each cell during the write pass. 



* Rand: pro 

by Xa 

* ReadCSX: 

* WriteCS: 

************** 

% 



************************************************************************** 

scription: 

places 2 16-bit patterns in WD0-1, and a 4 bit pattern in WD2. 

The pattern may be all zeros, all ones, checker, or random, 

depending on the value of CurrentPattern. 
duces a pseudo-random number in t & xa registers 

4005*Xa + Ca mod 2**16. 
reads control store location CurrentLoc into RD0-2. 
writes 3 words from WDO-2 to the control store at CurrentLoc. 

♦•in*********************************************************************** 
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******** 41 ***********•******•*************•***•*************•*> 



.******•****•******* 



♦INITIALIZATION: 



BUILTIN[INSERT,24]; 

INSERT[dGlang]; 

TITLE[Control Store Exerciser]; 

SET[ProgPage,l]; * prog ram is one page long 

ONPAGE[ProgPage]; 



•*******«* 



R-Registers: 



********** 



RV[LowLoc,20,ADD[LSHIFT[ProgPage, 10], 400]]; *f1rst location tested - one beyond program page 
RV[CurrentLoc,21]; •the current Control Store location Involved 
RV[HighLoc,22,6777]; *last location tested - below kernel 



RV[Rd0.23] 
RV[Rdl.24] 
RV[Rd2,25] 



RV[Wd0, 26. 177777]; 
RV[Wdl, 27, 177777]; 
RV[Wd2,3CI,17]; 

RV[Md0. 31. 177777]; 
RV[Mdl, 32. 177777]; 
RV[Md2,33,17]; 

RV[RlinkO,34]; 

RV[Xa. 35.123]; 
RV[Ca. 36,33031]; 
RV[SavedXa,37]; 

RV[PassCount,40,0]; 
RV[MaxPass,41,100]; 
RV[SubTest,42]; 

RV[Shortl.oop,43.0]; 
RV[LoopControl ,44,1]; 



♦3 word read buffer 



♦3 word write buffer 



*3 word mask - l's mean compare the bit 



♦subroutine return link 



♦Random Number Generator (RNG) registers 



'Disable looping at program initialization 



RV[PatternChoice,45, 17];*Enable all four pattern at program initialization 

RV[PatternTry,46, 1]; 'Initialize to all zeros pattern 

RV[CurrentPattern,47, l];*Initial ize to all zeros pattern 

RV[Ones,50, 177777]; *define ones to be 177777 

RV[Checkerl ,51, 125252] ; 'checker pattern register 

RV[CheckerO, 52, 052525] ; 'checker pattern register 

RV[Toggle,53,0]; "checker toggle register 



RV[Revision.54,l]; 
RV[Run-Time,55,36]; 



♦REVISION 1 

♦Run-Time is 36b or 300 seconds 
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*** MAIM routine: 

start: 

go: t*-Xa; *save RNG 

SavedXa*-t; 

t*-LowLoc; *set address 

CurrentLoc«-t; 

Again: t «- (PatternTry) AND (177760C); *what pattern to use? 

goto[WhatPattern,alu»0]; "exhausted all four pattern types? 

PatternTry «■ 1C; "yes, select the zero pattern again 

call[Rand]; "process the (not very good) RNG 

Toggle <- 0C; *reset checker pattern toggle 

PassCount*- t «-(PassCount)+l; "increment pass count 

lu «- (MaxPass) - (t); 

goto[.+2, alu>=0]; "finished all passes? 

Passed-EDCSEx-Test: PassCount «- 0C, goto[start], breakpoint; 

nop; 

WhatPattern: t «- PatternCholce; "determine what pattern to use 

t *- (PatternTry) AND (t); 

goto[NextPattern,alu a 0]; "do we want to use this pattern? 
ThisPattern: CurrentPattern *• t. goto[.+2]; "yes, use this pattern 

NextPattern: PatternTry ♦• LSH[PatternTry, 1], goto[Again]; "no, try the next pattern 

"SUBTEST 

SubTest *• 0C; 

writeloopO: Call[F1l IBuf ]; 
writeloopl: nop; 

TestLoopO: call[WriteCS]; "write data into Control Store 

call[ReadCSX]; "read Control Store and store it in RdO-2 

t*-Wd0, TASK; "allow mouse halt 

t«-(Rd0) xor (t); "compare RdO with WdO under mask MdO 

Shortloop ♦- ShortLoop, goto[.+2,R EVEN]; "test for ShortLoop option 

goto[TestLoopO]; "short loop selected 

t«-(MdO) and (t); 

goto[.+2,alu=0]; 

wordObad: breakpoint; 

t«-Wdl; "compare Rdl with Wdl under mask Mdl 

t«-(Rdl) xor (t); 

ShortLoop ♦■ ShortLoop. goto[.+2,R EVEN]; "test for ShortLoop option 
goto[TestLoopO]; "short loop selected 

t«-(Mdl) and (t); 
goto[.+2,alu a 0]; 
wordlbad: breakpoint; 

t«-Wd2; "compare Rd2 with Wd2 under mask Md2 
t*-(Rd2) xor (t); 
• ShortLoop «- ShortLoop, goto[.+2.R EVEN]; "test for ShortLoop option 
goto[TestLoopO]; "short loop selected 

t«-(Md2) and (t); 
goto[.+2,alu=0]; 
word2bad: breakpoint; 

ShortLoop «- ShortLoop, goto[.+2,R EVEN]; "test for ShortLoop option 
goto[TestLoopO]; "short loop selected 

t «- (LoopControl ) and (1C); 

CurrentLoc ♦- t *• (CurrentLoc)+(t) ; "done? 

lu«-(HighLoc)-t; 

goto[.+2, alu<0]; 

lu *• LoopControl, dblgoto[wri teloopl , writeloopO, R<0]; 

"do not change data if LoopControl .0=1 

t«-LowLoc; "reset address 

CurrentLoc ♦■ t; 

t*-SavedXa; - "reset RNG 

Xa<-t; • - 

Toggle *■ 0C; "reset checker pattern toggle 
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♦SUBTEST 1 

SubTest «- 1C; 

readloopO: call[FillBuf ]; 
readloopl: nop; 

TestLoopl: cal1[ReadCSX]; 
t«-WdO, TASK; 
t«-(RdO) xor (t); 



ShortLoop ♦■ ShortLoop, goto[.+2,R EVEN]; 
goto[TestLoopl]; 
t<-(Md0) and (t); 
goto[.+2,alu»0]; 
wordObadRead: breakpoint; 

t«-Wdl; 

t«-(Rdl) xor.(t); 

ShortLoop «- ShortLoop, goto[.+2,R EVEN]; 
gotofTestLoopl]; 
t«-(Mdl) and (t); 
goto[.+2,alu»0]; 
wordlbadRead: breakpoint; 

t«-WdZ; 

t«-(Rd2) xor (t); 

ShortLoop ♦• ShortLoop. goto[.+2,R EVEN]; 
goto[TestLoopl]; 
t<-(Md2) and (t); 
goto[.+2,alu=0]; 
word2badRead: breakpoint; 

ShortLoop ♦* ShortLoop, goto[.+2,R EVEN]; 
goto[TestLoopl]; *short loop selected 



*f1ll buffer 

•odd-even placement constraints 

*read Control Store and store it 1n RdO-2 

•allow mouse halt 

•compare RdO with WdO under mask MdO 



•test for ShortLoop option 
•short loop selected 



•compare Rdl with Wdl under mask Mdl 

•test for ShortLoop option 
•short loop selected 



•compare Rd2 with Wd2 under mask Md2 

•test for ShortLoop option 
•short loop selected 



•test for ShortLoop option 



t «- (LoopControl ) and (1C); » 

CurrentLoc «- t ♦• (CurrentLoc)+(t) ; *done? 

1u«-(HighLoc)-t; 

goto[.+2, alu<0]; 

lu «- LoopControl, dblgoto[readloopl , readloopO, R<0]; 

•do not change data if LoopControl .0=1 



'atternTry <- LSH[PatternTry , 1] , goto[start] ; *use the next pattern 
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********* 



SUBROUTINE: FillBuf 



********** 



puts pattern Into WdO, Wdl, Wd2. The pattern depends on the value 
of CurrentPattern: 

CurrentPattern WdO, Wdl Wd2 

1 000000 00 All Zeros pattern 

2 177777 17 All Ones pattern 
4 125252 12 ' Checker pattern 

or 1252525 or 05 

10 random - random Random pattern 



FillBuf: usectask; 

t<-apc&apctask; 
R1ink0«-t; 



t «- (CurrentPattern) AND (1C); 

goto[Tryl,alu=0]; 

WdO •■ OC; 

Wdl «- OC; 

Wd2 «- OC, goto[Bottom]; 
Tryl: t «- (CurrentPattern) AND (2C); 

goto[Try2,alu*0]; 

t «- Ones; 

WdO «■ t; 

Wdl + t; 

t «- (Ones) AND (17C); 

Wd2 <- t. goto[Bottom]; 
Try2: t ♦- (CurrentPattern) AND (4C); 

goto[Try3,alu=0]; 

Toggle «- Toggle, goto[Checker01 ,R ODD]; 

t «- Checkerl; 

WdO «- t; 

Wdl «• t; 

t - (Checkerl) AND (17C); 

Wd2 «- t; 

Toggle «- (Toggle) + 1, goto[Bottom]; 
CheckerOl: t ♦• CheckerO; *0 10 10 10 10 10 10 101 pattern 

WdO «- t; 

Wdl «- t; 

t *■ (CheckerO) AND (17C); 

Wd2 «• t; 

Toggle «- (Toggle) + 1, goto[Bottom]; 
Try3: t *■ (CurrentPattern) AND (IOC); 

goto[Bottom,alu 3 0]; 

call[Rand]; 

WdO*-t; 

call[Rand]; 

Wdl«-t; 

call[Rand]; 

Wd2«-t; 

Wd2«-(Wd2)and (17C); 
Bottom: apc&apctask«-Rl inkO; 

return; 



*want the zeros pattern? 

•yes, fill WdO-2 with zeros pattern 



*no, try the ones pattern 

"want the ones pattern? 

*yes, fill WdO-2 with ones pattern 



•no, try the checker pattern 

•want the checker pattern? 

•yes, fill WdO-2 with checker pattern 
•1010101010101010 pattern 



•toggle checker pattern 



•toggle checker pattern 

•no, try the random pattern 

•want the random pattern? 

•yes, fill WdO-2 with random pattern 
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********** SUBROUTINE: Rand ********** 

* 

* to produce a pseudo-random number in t & Xa reg. 

* formula: Xa «- 4005*Xa + ca mod 2**16 

Rand: t*-Xa; 

t-(lsh[Xa,2])+(t); »t«- 5*Xa 
t*-(lsh[Xa,13])+(t); *t<-4005*Xa 
t«-(Ca)+t; 
Xa«-t, return; 

********** SUBROUTINE: ReadCSX ********** 

* to read control store location CurrentLoc Into RDO-2 

ReadCSX: usectaskj 

t«-apc&apctask; 

Rlink0«-t; 

t*-ZER0; 

apc&apctask«-CurrentLoc; 

readCS; 

t<-csdata; 

Rd0«-t; 

t«-lC; 

apc&apctask ♦• CurrentLoc; 

readCS; 

t«-csdata: 

Rdl«-t; 

t«-3C; 

apc&apctask ♦• CurrentLoc; 

readCS; 

t«-csdata; 

Rd2«-t; 

Rd2«-(LDF[Rd2,0,4]) ; *control store bits come back in bits 0-3 

apc&apctask«-Rl inkO; 

return; 

********** SUBROUTINE: WriteCS ********** 

* 

* to write 3 words from WD0-2 to the control store at CurrentLoc. 

WriteCS: usectask; 

t«-apc&apctask; 

Rl ink0*-t; 

t«-Wd2; 

Iu<-Wd0; 

apc&apctask*-CurrentLoc; 

wr1teCS0&2; 

lu«-Wdl; 
* apc&apctask*-CurrentLoc; 

writeCSl; 

apc&apctask«-Rl iflkO; 

return; 

end; *to end the MAIN routine 



start: 
go: 



Again: 



EDCSEx 



GED 



± 

Initialize registers 



SavedXa>Xa 

CurrentLoc a LowLoc 
LoopControla 1 
PatternCholcea 17 
PatternTry a 1 



±. 



NextPatltern: 



Exhausted all four \ yes 
pattern types? / 



select next pattern 



WhatPattern: v 



no / is current pattern 
\ selected by user? 



yes 



V 



writeloopO 
page 02 



select zeros pattern 



±- 



update random number 



CALL Rand 
page 04 



reset toggle for checker pattern 



increment pass count 



done with all passes? 



yes 



passcount = 



Passed-EDCSEx1-Test: IbreakPOINtI 



±. 



END 



XEROX 

ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCSEx. mc 


DOCUMENTATION FILE 

EDCSExOLsil 


DESIGNER 

Tom Henning 


REV 
1 


DATE 

10/24/79 


PAGE 

01 



SubTestO 



writeloopO: 



put pattern 
£H In write buffer WdO- 2 



writeloopl: 



nop 



SYNC is 424 
TestLoopO: 



JL 



write the data into 
the control store 



I 



read Control Store 
into RdO-2 



I 



allow mouse halt 



I 



CALLfillbuf 
page 04 



CALLwriteCS 
page 05 

CALL readCSX 
page 05 

TASK 



yes 



ShortLoop 
Selected? 



±. 



increment address 
if loopcontrol. 1 5 is on 



T = loopcontrol AND 1 
currentioc = current + T 



±- 



Are we done with all \ ves 
control store locations? / 



no currentloc>hlghloc? 



V 



yes 



constant 
pattern 



keep the same 
data pattern? 



loopcontrol 
bit 0=1? 



V 



change 
pattern 



■^ 



JL 



compare read data rdO against 
write data wdO under mask mdO 



T = wdO 

T = rdO XOR T 

TsmdOANDT 



are they the same? 



wordObad: 

™ J"breakpoinT1 



TsO? 



V 



yes 
< 



yes 



ShortLoop 
Selected? 



±. 



compare read data rd1 against 
write data wd1 under mask md1 



T = wd1 
T=rd1 XORT 
T = md1 ANOT 



JL 



are they the same? 



wordlbad: 
no ^[rrfa k PO I nT| 



yes 



TsO? 



V 



yes 



ShortLoop 
Selected? 



V 



compare read data rd2 against 
write data wd2 under mask md2 



T = wd2 
T=rd2XORT 
T=md2 ANDT 



V 



word2bad: 



are they the same? 



HbreakpoinTI 



T = 0? 



yes 



±. 



yes 



ShortLoop 
Selected? 



Reset registers 



JL 



readloopO 
page 03 



currentioc = iowloc 
xa = saved x-a 
Toggle = 
SubTest* 1 



Read the control store again. 
SubTest = 1 will indicate read. 



XEROX 



D(0) j PROGRAM NAME 



DOCUMENTATION FILE 
EDCSEx02.sil 



DESIGNER 

Tom Hennina 



REV 
1 



DATE I PAGE 

10/24/791 02 



I SubTest 1 



readloopO: 



put pattern 
in write buffer wdO-2 



read loop 1: 



CALLfiilbuf 
page 04 



nop 



SYNC is 464 
TestLoopI: 



JL 



read Control Store 
into rdO-2 



I 



CALL readCSX 
page 05 



allow mouse halt 



I 



TASK 



yes 



ShortLoop 
Selected? 



increment address 
if loopcontrol. 1 5 is on 



T = loopcontrol AND 1 
currentloc ■ current *T 



V 



Are we done with all \ yes 
control store locations?/ 



currentloc>highloc? 



Y_ 



compare read data rdO against 
write data wdO under mask mdO 



TswdO 

T = rdO XOR T 

TamdOANOT 



±. 



are they the same? 



wordObadRead: 
no ^rfa k POI nT| 



v 



yes 
< 



T»Q? 



yes 



ShortLoop 
Selected? 



V 



compare read data rd1 against 
write data wd1 under mask md 1 



T = wd1 
T=rd1 XORT 
Tsmdl ANDT 



±_ 



are they the same? 



word"! badRead: 

no ^[ Treak point] 



JL 



yes 
< — 



TsO? 



yes 



ShortLoop 
Selected? 



V 



compare read data rd2 against 
write data wd2 under mask md2 



T = wd2 
T=rd2 XORT 
T = md2 ANDT 



41 



are they the same? 



word2badRead: 
^[Jrpa K POI nT| 



yes 
< — 



T = 0? 



yes 



ShortLoop 
Selected? 



V 



step to the next pattern 



.YS2- 



constant 
pattern 



keep the same 
data pattern? 



loopcontrol 
bitOal? 



y 



change 
pattern 



±. 



start 
page 01 



go determine the next 
pattern to use 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCSEx.mc 


DOCUMENTATION FILE 

EDCSEx03.sil 


DESIGNER 
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REV 
1 


DATE 
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PAGE 

03 



SUBROUTINE 



fillbuf 



v 



save return link 



fillbuf places 2 16-bit numberin WdO,Wd1 
and a 4 bit number in Wd2, the patterns can 
be all zeros, alt ones, checker, or random 
depending upon the user's choice 



UseCTask 

rllnkO = APC&APCTASK 



V 



Tr XlL_i 



no 



Try2: >, 



Want the 
checker pattern? 



Try3; y 



Want the 
random pattern? 



yes 



V 



Want the \ yes 
zeros pattern? / 



put zeros in 
write buffer 



Want the \ yes 
onespattesn? / 



put ones in 
write buffer 



Y es > < 



Want the 
1010... pattern?. 



CheckerOI: 

y es > i 



put 1010... 
in write buffer 



V 



put0101... 
in write buffer 



V 



toggle checker 
pattern 



put 3 random patterns 
into wd0,wd1,wd2 



CALL rand page 04 

wdO = xa 

CALL rand page 04 

wd1 = xa 

CALL rand page 04 

wd2 = xa 

wd2 = wd2 AND 17 



±- 



restore return link 



RETURN 



APC&APCTASK » rlinkO 



SUBROUTINE 



rand 



get old pattern 



rand produces a pseudorandom 
number xa = 4005 *xa + CA mod 2**16. 



T = xa 



JL 



calculate new random 
pattern based on old pattern 



•-V 



T=LSH[xa,2]*T 

T=LSH[xa,13]*T 

T=CA+T 



save new pattern in xa 



RETURN 



xasT 
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SUBROUTINE 



\ readCSX reads control store location 
readCSX) currentloclntoRdO-2 



V 



save return link 



V 



read control store 

and put data read 

intoRdO-2 



restore return link 



RETURN 



UseCTask 

RlinkO = APCAAPCTASK 



RdO = CSDataO 

Rd1 =CSData1 

Rd2 = CSData2 

Rd2 ? LDF[Rd2,0,4] 



APCAAPCTASK = RlinkO 



SUBROUTINE 



\ writeCS writes 3 words 
writeCS ) ,rom WdO-2 to the Control Store 
J at currentloc. 



\f 



save return link 



V 



write WdO and Wd2 

Into CSO and CS1 

at CurrentLoc 



JL 



write Wd1 IntoCSI 
at CurrentLoc 



V 



restore return link 



RETURN 



UseCTask 

rlinkO = APC&APCTASK 



APC&APCTASK a RlinkO 
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MicroD 8.6 (OS 16) of April 27, 1979 
at 27-IUOV-79 11:14:00 

microd.run EDCSEx 



EDCSEx. DIB 251b instructions written 27-Nov-79 11:13:19 

Total of 251b instructions 

Checking for errors... 
Linking. . . 

Building allocation lists... 
Assigning locations... 

251b instructions in rings involving ONPAGE or AT 
Reloading binaries... 
Checking assignment... 
Writing .MB file. . . 
Writing listing... 
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50 


25250 2 


( + 1) 


30 


426 


22150 


65377 11 


(+2) 


31 


577 


20450 


65400 14 


(+3) 


32 


427 


10150 


124426 14 


(+4) 


33 


413 


50 


25050 


(+5) 


34 


412 


24250 


65175 5 


(+6) 


35 


576 


50 


24045 


(+7) 


36 


b 423 


50 


25044 


WORDOBAD 


37 


422 


22150 


65172 15 


i + 1 > 


40 


575 


22450 


65171 1 


1*2) 


41 


574 


10150 


124423 14 


■(+3) 


42 


411 


50 


25050 


(+4) 


43 


410 


24250 


65167 11 


(+5) 


44 


573 


50 


24040 


(+6) 


45 


b 421 


50 


25041 


W0RD1BAD „ 


46 


420 


24150 


65165 1 


( + 1) 


47 


572 


22450 


65162 5 


(+2) 


50 


571 


10150 


124416 14 


(+3) 


.51 


407 


. 50 


25050 


(+4) 


52 


406 


24250 


65160 15 


(+5) 


53 


570 


50 


24034 


(+6) 


54 


b 417 


50 


25035 


W0RD2BAD 


55 


416 


10150 


124413 14 


( + D 


56 


405 


50 


25050 


(+2) 


57 


404 


12200 


43157 1 


(+3) 


60 


567 


21150 


165155 5 


(+4) 


61 


566 


21450 


25153 11 


(+5) 
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62 


565 


50 


24331 





(+6) 


63 


454 


12150 


24431 





(+7) 


64 


455 


20150 


65065 


1 


( + 10) 


65 


532 


20050 


125063 


5 


( + 11) 


66 


531 


26150 


65060 


15 


( + 12) 


67 


530 


26050 


125056 


5 


( + 13) 


70 


527 


14020 


101054 


15 


( + 14) 


71 


526 


10000 


103060 


10 


( + 15) 


72 


430 


50 


25351 


1 


READLOOP0 


73 


431 


50 


25151 





READL00P1 


74 


464 


50 


25250 


2 


TESTL00P1 


76 


465 


22150 


65252 


11 


( + 1) 


76 


525 


20450 


65400 


14 


(+2) 


77 


466 


10150 


124503 


14 


(+3) 


100 


441 


50 


25151 





(+4) 


101 


440 


24250 


65050 


5 


(+5) 


102 


524 


50 


24144 





(+6) 


103 b 


463 


50 


25145 





WORDOBAOREAD 


104 


462 


22150 


65046 


15 


( + 1) 


105 


523 


22450 


65045 


X 


(+2) 


106 


522 


10150 


124476 


14 


(+3) 


107 


437 


50 


25151 





(+4) 


110 


436 


24250 


65042 


11 


(+5) 


111 


521 


50 


24141 





(+6) 


112 b 


461 


50 


25140 





W0R01BA0REA0 


113 


460 


24150 


65040 


1 


( + 1) 


114 


520 


22450 


65036 


5 


(+2) 


115 


517 


10150 


124473 


14 


(+3) 


116 


435 


50 


25151 





(+4) 


117 


434 


24250 


65034 


15 


(+5) 


120 


516 


50 


24135 





(+6) 


121 b 


457 


50 


25134 





W0R02BA0REA0 


122 


456 


10150 


124467 


14 


( + 1) 


123 


433 


50 


25151 





( + 2) 


124 


432 


12200 


43033 


1 


(+3) 


125 


515 


21150 


165031 


5 


( + 4) 


126 


514 


21450 


25026 


11 


( + 5) 


127 


513 


50 


24200 





(+6) 


130 


400 


12150 


24461 





( + 7) 


131 


401 


12174 


103157 


10 


( + 10) 


132 


564 


47 


27146 


1 


FILLBUF 


133 


563 


50150 


65144 


15 


( + 1) 


134 


562 


26050 


125142 


1 


(+2) 


135 


561 


12200 


43140 


15 


(+3) 


136 


560 


50 


24121 





(+4) 


137 


451 


22020 


101074 


11 


(+5) 


140 


536 


22020 


101073 


15 


(+6) 


141 


535 


24020 


101001 


1 


( + 7) 


142 


450 


12200 


45137 


15 


TRY1 


143 


557 


50 


24114 





( + 1) 


144 


447 


14150 


65105 


1 


(+2) 


145 


542 


22050 


125103 


11 


(+3) 


1 146 


541 


22050 


125101 


15 


( + 4) 


147 


540 


14200 


77076 


1 


(+5) 


150 


537 


24050 


125000 


1- 


(+6) 


151 


446 


12200 


51134 


15 


TRY2 


152 


556 


50 


24111 





( + 1) 


153 


445 


14150 


124507 


14 


( + 2) 


154 


442 


14150 


65116 


5 


(+3) 


155 


547 


22050 


125114 


11 


(+4) 


156 


546 


22050 


125113 


15 


(+5) 


157 


545 


14200 


77110 


5 


(+6). 


160 


544 


24050 


125107 


1 


( + 7) 


161 


543 


15050 


125001 


15 


( + 10) 


162 


443 


14150 


65131 


11 


CHECKER01 


163 


554 


22050 


125127 


11 


( + 1) 


164 


553 


22050 


125125 


15 


(+2) 


165 


552 


14200 


77123 


11 


(+3) 


166 


551 


24050 


125120 


1 


(+4) 


167 


550 


15050 


125001 


15 


(+&>- 


170 


444 


12200 


61132 


15 


-TRY3 


171 


555 


50 


24000 


1 


( + 1) 


172 


501 


50 


25224 


1 


(+2) 


173 


502 


22050 


125170 


10 


(+3) 


174 


474 


50 


25224 


1 


( + 4) 


175 


475 


22050 


125124 


14 


(+5) 
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176 


452 


50 


25224 


1 


(+6) 


177 


453 


24050 


125066 


1 


(■•■7) 


200 


533 


24200 


137001 


I 


( + 10) 


201 


500 


26147 


21071 


1 


BOTTOM 


202 


534 


50 


25401 





( + 1) 


203 


512 


26150 


65023 


5 


RAND 


204 


511 


27174 


45020 


5 


( + 1) 


205 


510 


27174 


67016 


5 


(+2) 


206 


507 


27150 


65014 


11 


(+3) 


207 


506 


26050 


125400 


4 


(+4) 


210 


624 


47 


27047 


2 


READCSX 


211 


' 623 


50150 


65045 


16 


( + 1) 


212 


622 


26050 


125043 


2 


(+2) . 


213 


621 


176 


41041 


2 


(+3) 


214 


620 


20147 


21037 


6 


(+4) 


215 


617 


47 


35434 


2 


(+5) 


216 


616 


54150 


65033 


16 


(+6) 


217 


615 


20050 


125031 


16 


( + 7) 


220 


614 





43026 


2 


( + 10) 


221 


613 


20147 


21025 


6 


( + 11) 


222 


612 


47 


35423 


2 


( + 12) 


223 


611 


54150 


65021 


16 


( + 13) 


224 


610 


22050 


125017 


2 


( + 14) 


225 


607 





47014 


2 


( + 15) 


226 


606 


20147 


21013 


6 


( + 16) 


227 


605 


47 


35410 


2 


( + 17) 


230 


604 


54150 


65006 


16 


(+20) 


231 


603 


22050 


125004 


6 


(+21) 


232 


602 


22162 


133003 


6 


(+22) 


233 


601 


26147 


21000 


2 


(+23) 


234 


600 


50 


25401 





(+24) 


235 


640 


47 


27077 


2 


WRITECS 


236 


637 


50150 


65075 


16 


( + 1) 


237 


636 


26050 


125073 


2 


(+2) 


240 


635 


24150 


65070 


2 


(+3) 


241 


634 


22150 


25067 


12 


(+4) 


242 


633 


20147 


21064 


6 


(+5) 


243 


632 


47 


31463 


2 


(+6) 


244 


631 


22150 


25060 


16 


( + 7) 


245 


630 


20147 


21057 


6 


( + 10) 


246 


627 


47 


33454 


2 


( + 11) 


247 


626 


26147 


21053 


2 


( + 12) 


250 


625 


50 


25401 





( + 13) 
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Page 400: 251 locations used, 127 free 



RM: 



20 


1000 


LOWLOC 


21 




CURRENTLOC 


22 


6777 


HIGHLOC 


23 




ROO 


24 




RD1 


25 




RD2 


26 


177777 


WDO 


27 


177777 


WD1 


30 


17 


WD2 


31 


177777 


MDO 


32 


177777 


MD1 


33 


17 


MD2 


34 




RLINKO 


35 


123 


XA 


36 


33031 


CA 


37 




SAVEDXA 


40 





PASSCOUNT 


41 


100 


MAX PASS 


42 




SUBTEST 


43 





SHORTLOOP 


44 


1 


LOOPCONTROL 


45 


17 


PATTERNCHOICE 


46 


1 


PATTERNTRY 


47 


1 


CURRENTPATTERN 


50 


177777 


ONES 


51 


125252 


CHECKER1 


52 


52525 


CHECKERO 


53 





TOGGLE 
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54 1 REVISION 

55 36 RUN-TIME 

56 RLC0 

Time: 8 seconds; error(s), warnlng(s), 11850 words free 
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LDCSI xl.og. MIDAS : I.O(j<jui- for LDCSox program 
By: C. Tseng 



start I. X AppendOutput EDCSEx . report; 

L X WriteMessage „********** START EDCSEx Test 

L X WriteDJ"; 

L X WriteMessage •*******•******.. ; 

L X Skip .continue; 



Nov. 20 1979 



breakpoint 



L X AppendOutput EDCSEx . report; 

L A18 SkipNE WORD0BAD; 

L X Skip .wordObad; 

L A18 SkipNE WORD1BAD; 

I. X Skip .wordlbad; 

L A18 SkipNE W0RD2BAD; 

L X Skip .word2bad; 

i. A18 SkipNE WORDOBAOREAD: 

I. X Skip . wordObadread; 

L A18 SkipNE WORD1BADREAD; 

L X Skip .wordlbadread; 

I. A18 SkipNE WORD2BADREAD; 

L X Skip . word2badread; 

L A18 SkipNE PASSED-EDCSEX-TEST; 

L X Skip .passtest; 

notmybreak L X AppendOutput EDCSEx . report ; 

I. X WriteMessage *** FAILed: Not at my breakpoint 

I. X WriteMessage * Parity = ; 

R AO Val ; 

I. X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' CIA = ; 

R A 18 Val ; 

L X Wr i teMessage; 

L X Wr i teMessage ~; 

L X WriteMessage ' CTASK = ; 

R A19 Val ; 

I. X WriteMessage; 

L X WriteMessage ~; 

1 X WriteMessage * APCTASK = ; 

R A17 Val; 

I. X WriteMessage; 

L X WriteMessage -; 

L X Wr i teMessage ' APC 3 ; 

R A16 Val; 

I. X WriteMessage; 

L X WriteMessage ~; 

I. X WriteMessage ' TPC * 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X CloseOutput; 
L X Exit; 



wordObad 



bad 



I X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * WORD Bad ~; 

V X WriteMessage * SUBTEST = ; 

R B4 VaT; 

L X WriteMessage;- 

L X WriteMessage ~; 



L X WriteMessage ' 

R Cll Val; 

L X WriteMessage; 

L X WriteMessage ~; 



CURRENTLOC 
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I X WriteMessage ' PASSCOUNT = ; 

R B2 Val ; 

L X Wr iteMessage: 

L X Wr iteMossage ~; 

I. X Skip .continue; 

.wordlbad I. X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * WORD 1 Bad ~; 

L X BackSkip .bad; 

,word2bad L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * WORD 2 Bad ~; 

L X BackSkip .bad; 

. wordObadread L X WriteMessage *** FAILed: at my Breakpoint -; 

L X WriteMessage * WORD READ Bad -; 

L X BackSkip .bad; 

. wordlbadread I X WriteMessage *** FAILed: at my Breakpoint -»; 

L X WriteMessage * WORD 1 READ Bad ~; 

L X BackSk ip .bad; 

.word2badread L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * WORD 2 READ Bad ~; 

L X BackSkip .bad; 

.passtest L X WriteMessage PASSed EDCSEx Test : 

L X WriteDT; 

L X WriteMessage ; 

L X Skip .continue; 

.continue I. X WriteMessage ~; 

I. X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X T imeOut 10000000; 

I. X Continue; 

L X Skip 2; 

L X ShowF.rror Program failed to CONTINUE.; 

L X BackSkip . notmybreak ; 

L X DisplayOfr; 

L X BackSkip .breakpoint; 
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I. A19 Val 

I X Conf inn 

L X loaJ CDCSEx; 

I. RO Addr REVISION 

I 131 Addr HUM-TIME 

L U2 Addr PASSCOUNT 

I H3 Addr MAXPASS 

I. B4 Addr SUBTEST 



L 


B9 Addr MDO; 


L 


BIO 


Addr 


WDO 


L 


Bll 


Addr 


RDO 


L 


B13 


Addr 


MOl 


L 


BI4 


Addr 


WD I 


l. 


B15 


Addr 


RD1 


L 


B I 7 


Addr 


MD2 


L 


B 13 


Addr 


W02 


L 


B19 


Addr 


RD2 



I C9 Addr LOWLOC; 
I CIO Addr IIIGHLOC; 
L Cll Addr CURRENTLOC; 

I. C13 Addr LOOPCONTROL 
L C 14 Addr PATTERNCHOICE 
L C15 Addr SIIORTLOOP 



L X DisplayOn; 

L X TimeOut 10000 

I. X SS GO 

L X Skip I 

L X ShowError Single-step stuck at GO 
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% 

*** *** *** *** <DODiag>Rev-l>EDCym.mc Revision 1 Jan. 2, 1980 *** *** *** *** 

******** 41 ************************************************************************************* 

*** EDCym.mc: Cycler Masker Test microcode 

*** Purpose: To Test all of the Cycler Masker functions except FixVA which is tested by EDTNF.mc 
*** Minimum Hardware: Standard 4 CPU boards. 
. **• Approximate run time: 7 seconds. 
*** Written by: Tom Horsley, December 30, 1977 
*** Modified by: Bill Kennedy, February 22, 1978 

To add control store parity. 
*** Modified by: Bill Kennedy, March 2, 1978 

To move code off of Page 0. 
*** Modified by: Bill Kennedy, April 24, 1978 

To add panel increments. 
*** Modified by: Chuck Thacker, May 29, 1978 

To improve readability. 

Mote: if the FIELD test is run before EDCym, then CYM2 is useless, 

since the only difference between it and EDCym is that CYM2 does not 
use WFA and WFB to load the control store. Accordingly, CYM2 should be 
eliminated from the set of tests. 
*** Modified by: Mike Spaur, January 14, 1980 

To standardize documentation and install looping capabilities. 
*********************************************************************************************** 

*********************************************************************************************** 

* SubTest Descriptions: 

* SubTestO: Generate a random number that determines the Cycler Masker mode of 

operation. 

* SubTestl: Read the control store micro instruction at location 1100 and alter 

the Fl and F2 fields so that they contain an 8 bit random number. Then 
calculate the new parity bit and insert the new instruction back Into 
control store location 1100. 

* SubTest2: Calculate what the result of the Cycler Masker operation should be 

and save the answer in the "myResult" register*. 

* SubTest3: Allow the cycler masker to execute the control store instruction 

at location 1100 and save the result in the "Result" register. 

* SubTest4: Compare the result of the hardeware operation (SubTest3) to the 

calculated result (SubTest2). 

* SubTest5: Examine the contents of the APC to see if it is correct. SubTest5 is only 

executed if the random F fields specify a dipatch type operation. 

*********************************************************************************************** 

* Breakpoints: 

* ResultBad: The hardware result of the Cycler Masker operation (Result) did not equal the 

calculated result (myResult). 

* APCBad: The contents of the APC (APCResult) did not equal the calculated result (myResult). 

* Passed-EDCym-Test: Passed all tests, and all passes. 

*********************************************************************************************** 

* ShortLoop Logic Analizer Sync Points at Control Store address: 

* ResulBad: Control Store address 1036 

* APCBad: Control Store address 1036 
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********************************* ********m** *************************************************** 

* Special Register Definitions: 

* ShortLoop: At any breakpoint the user has the option of changing the value of ShortLoop to 1, 

which will cause Subtest3 to loop endlessly. If ShortLoop is a zero then the program 
will proceed to the next test. 

* InnerLoopCounter: This register contains the number of passes through the malnloop. 

The mainloop is simply the sum of all of the sub tests. When InnerLoopCounter = 2**16 
all of the functions that are tested by EDCym have been tested exactly once. 

* PassCount: This register displays the number of completed passes of the entire EDCym test 

(2**16 Iterations of the malnloop). Also, the contents of this register 1s the 
octal equivalent of the Maintenance Pannel display. 

* MaxPass: This register can be set by the user. It determines how many repetitions 

of the entire EDCym test will be made. 

* XA: This test is driven by a sequence of 16-bit random numbers. In each iteration of the 

mainloop, the random number is generated. The random number generator has been 
constructed so that it produces each number in the range of [0-64K] once and only 
once before repeating any number. Thus it is guaranteed to have exhausted all possible 
combinations of the fields derived from it when InnerLoopCounter reaches 2**16. 
XA[0:7] is used to define the Cycler Masker function through use of the Fl and F2 
fields of the microinstruction. These fields are built up from XA as follows: 

Fl * XA[0:3] 

F2 = XA[4:7] 

* Fnum: This register 1s used to Load the Fl & F2 fields. Fnum[0:7] = 0. and Fnum[10:17] » XA[0:7] 

This register is then used to decide which Cycler Masker function has been defined. 

There are six possible functions that are tested by the mainloop: 
Fnum = to 206 The Load Field function (LDFTest) 
Fnum = 207 to 300 The Dispatch function (DispatchTest) 
Fnum = 301 to 317 The LeftShift function (LSHTest) 
Fnum = 320 to 336 The Left Cycle function (LCYTest) 
Fnum ■ 337 The Left Hand Mask function (LHMaskTest) 

Fnum = 340 The Zero function (ZeroTest) 

* Operand: This is a random 16 bit word that is used to simulate the operation of the Cycler 

Masker using adds and carries. Operand s XA + PassCount. 

************************************************************************************************ 
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******** A************************************************************************ *************** 
* INITIALIZATION: 



BUILTIN[INSERT. 24]; 

INSERT[DOLANG]; 

TITLE[CyclerMaskerT9ster]i 



SET[Ma1nPage. 3] 
SET[SubPagel, 1] 
SET[SubPage2. 2] 



* Set page number for main part of program 

* Set page number for first sub-part of program 

* Set page number for first sub-part of program 



********* 



R-registers ***•*••** 



RV[PassCount.20,0]; 

RV[MaxPass.21,2]; 

RV[InnerLoopCounter,22]: 

RV[ShortLoop,23,0]; 

RV[SubTest,24]; 

RV[CheckAPC,25]; 

RV[CA,26]; 
RV[XA,27]; 

RV[Fnum,30]; 

RV[Qperand,31]; 

RV[NBits,32]; 

RV[LeftBit,33]; 

RV[bitNum,34]; 

RV[CS0,35]; 
RV[CS1.38]; 
RV[CS2,37]; 
RV[CSP,40]; 
RV[Address,41]; 

RV[LDFTest,42]; 

RV[DispatchTest,43]; 

RV[LSHTest,44]; 

RV[LCYTest,45]; 

RV[LHMask,Test,46]; 

RV[ZeroTest,47]; 

RV[myResuilt,50]; 

RV[Result,51]; 

RV[APCResult,52]; 

RV[StuffTmp,53]; 
*RV[tmp,54]; 
RV[tmp2,55]; 
RV[tmp3,56]; 

RV[Revision,57,l]; 
RV[Run-Time.60,7]; 



* number of passes of the EDCym test executed 

* number of times EDCym is to repeat before breakpointing 

* number of passes of the mainloop (subtests to 5) 

* « continue on next test, 1 » loop on Subtest 3 

* current location of test 

* flag indicating whether the APC result is to be checked 

* used in random number generation, A*XA + CA 

* random number generated via A*XA + CA 

* current cycle mask function being tested 

* word to be cycle masked 

* number of bits to be cycled or shifted 

* first bit of field to be operated on 

* loop counter in simulated shifts 

* temporary storage for first word of a control store location 

* temporary storage for second word of a control store location 

* temporary storage for third word of a control store location 

* temporary register for control store parity calculations 

* location of CS instruction to be stuffed 

* number of times LDF test has been executed 

* number of times Dispatch test has been executed 

* number of times LSH test has been executed 

* number of times LCY test has been executed 

* number of times LHMask test has been executed 

* number of times Zero test has been executed 

* result of simulated function 

* result of hardware function 

* contents of APC&APCTASK after test 

* used in the stuff operations 

* temporary register 

* temporary register 

* temporary register 

* current revision of EDCym 

* the octal number of seconds it takes 

* to complete two passes of the EDCym test 
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*** MAIN routine 
ONPAGE[MainPage]; 



go: 
start: 



XA «• AND@[0377, 123]C; 

XA «- (XA) OR (AND9[177400, 123]C); 

CA «- AND9[0377, 33031]C: 

CA «- (CA) OR (AND@[177400, 33031]C); 



CLEARMPANEL; 

InnerLoopCounter *• 0C; 

PassCount «- OC; 

LDFTest «- OC; 

DispatchTest *■ OC; 

LSHTest «- OC; 

LCYTest «- OC; 

LHMaskTest «• OC; 

ZeroTest *■ OC; 

Address ♦•' AND9[0377, 1100]C; 

Address «- (Address) OR (AND9[177400. 1100]C); 

GOTO[mainLoop]; 

bigLoop: INCMPANEL; 

PassCount «- (PassCount) + 1; 

t «- (MaxPass) ; 

LU «- (PassCount) - (t); 

60T0[Passed-EDCym-Test. ALU >= 0]; 

G0T0[mainLoop]; 

Passed-EDCym-Test: BREAKPOINT; 
PassCount ♦• OC; 

*** SUBTEST 
ma inLoop: 

SubTest «■ OC; 

CheckAPC «- OC; 

InnerLoopCounter «- (InnerLoopCounter) + l; 
GOTO[bigLoop, CARRY]; 



t ♦■ XA; 

t - (LSH[XA, 2]) + t; 

t «• (LSH[XA, 13]) + t; 

t «• (CA) + t; 

XA ♦• t; 



* This is the psuedo random number algorythm 

* XA (new) = [ [ 4005 * XA(old) ] + CA ] modulo 2**1( 



*** SUBTEST 1 
SetVars: SubTest «- 1C; 

t «- LDF[XA, 0. 10]; 

Fnum «- t; 

t ♦• PassCount; 
t «• (XA) + t; 
Operand ♦• t; 

t *■ (Address); 
CS2 <- t; 

GetCS: t <- 0C; 

APCTASK&APC ♦■ (CS2); 

REAOCS; 

t «- CSData; 

CSO ♦• t; 

t «■ 1C; 

APCTASK&APC *■ (CS2); 

READCS; 

t «- CSData; 

CS1 «■ t; 

t *■ 3C; 

APCTASK&APC «• (CS2); 



* use CS2 for a temporary register until end 



* These lines of code read the control store data 

* at adress 1100 into the variables CS0.CS1 & CS2. 
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READCS; 

t «- CSOata; 

CS2 «- t; 

CS2 «- RSH[CS2, 14]; 

ChangeFields: 

t «- LDF[Fnum, 10, 4]; • • Extract the Fl field from Fnum 

Tmp «- t; 

StuffTmp <- 0R@[LSHIFT[14, 4], SUB[4, 1]]C; 

CYCLECONTROL *■ StuffTmp; 

t «- WFA[Tmp]; * These four lines of code change the Fl field in CSO 

CSO •• WFB[(CS0) OR t]; * so that it is identical to Fnum[10:13] 

t *- LDF[Fnum, 14, 4]; * Extract the F2 field from Fnum 

Tmp «- t; 

StuffTmp «- OR@[LSHIFT[2, 4], SUB[4, 1]]C; 

CYCLECONTROL «• StuffTmp; 

t «- WFA[Tmp]; * These four lines of code change the F2 field in CS1 

CS1 «- WFB[(CS1) OR t]; • so that is is identical to Fnum[14:17] 

CalcPar: t +■ CSO; * Calculate the new control store parity 

CSP ♦• t; * put CSO in the temp. reg. 

t <- CS1; * get CS1 

CSP «- t *- (CSP) XOR (t); * exclusive or the first two CS words 
t <- (LDF[CS2,14,4]) XOR (t); * now exclusive or the third CS word with the result 
CSP «- t ♦- (LDF[CSP,0,10]) XOR (t); * now start halfing process to get parity 
CSP «- t «• (LDr[CSP,10,4]) XOR (t); 
CSP - t «- (LDF[CSP,14,2]) XOR (t); 

CSP - t *■ (LDF[CSP,16.1]) XNOR (t); * Do last part and complement it 
t *- (LDF[CSP,17,1]); * put parity bit in the t-register 

CS1 «- (CS1) XOR (t); * exclusive or the parity bit into bit 31 of CS (15 of CS1) 

WriteCS: t «- (CS2); * Put the new instruction back into the control Store 

LU ♦■ (CSO); * writeCS -- write control store location 

APCTASK&APC «• (Address); 
WriteCS0&2; 
LU «- (CS1); 

APCTASK&APC «- (Address); 
WriteCSl; 

LOADPAGE[SubPagel]; * Page (change to page SubPagel) 

GOTOP[.+l]; 

ONPAGE[SubPagel]; 

*** SUBTEST2 
SubTest2: 

SubTest ♦• 2C; 

t *■ 207C; * last LDF + 1 

LU <- (Fnum) - (t); 

GOTO[FnumGT206, ALU >- 0]; 

LU «- (Fnum) - (20C); * LDF Tests 

GOTO[FnumGT017, ALU >« 0]; 

NBits ♦■ 1C; * 20 1-bit fields 

t «- Fnum; 

LeftBit *■ t; 

G0T0[myLDF]; - ^ - ; 

FnumGT017: 

LU «- (Fnum) - (37C); 
GOTO[FnumGT036, ALU >= 0]; 

NBits <- 2C; * 17 2-bit fields 

t «- (Fnum) - (20C); 
LeftBit «•. t; 
G0T0[myLDF]; 

FnumGT036: 

LU «- (Fnum) - (55C); 
GOTO[FnumGT054, ALU >* 0]; 

NBits *■ 3C; * 16 3-bit fields 

t «- (Fnum) - (37C); 
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LeftBU ♦■ t; 
GQTO[myLDF]; 

FnumGT054: 

LU «- (Fnum) - (72C); 
GOTO[FnumGT071, ALU >« 0]; 

NOits <- 4C; * 15 4-bit fields 

t «- (Fnum) - (55C); 
LeftBit «- t; 
GOTO[myLDF]; 

FnumGT071: 

LU «- (Fnum) - (106C); 
GOTO[FnumGT105, ALU >= 0]; 

NBits ♦- 5C; * 14 5-btt fields 

t <- (Fnum) - (72C); 
LeftBit «• t; 
60T0[myL0F]; 

FnumGTIQB: 

LU ♦• (Fnum) - (121C); 
GOTO[FnumGT120, ALU >» 0]; 

NBits «- 6C; * 13 6-bit fields 

t *■ (Fnum) - (106C); 
LeftBit «■ t; 
GOTO[myLDF]; 

FnumGT120: 

LU «- (Fnum) - (133C); 
GOTO[FnumGT132, ALU >- 0]; 

NBits «- 7C; * 12 7-b1t fields 

t «- (Fnum) - (121C); 
LeftBit «- t; 
GOTO[myLDF]; 

FnumGT132: 

LU ♦■ (Fnum) - (144C); 
G0T0[FnumGT143, ALU >= 0]; 

NBits «• IOC; * 11 10-bit fields 

t «- (Fnum) - (133C); 
LeftBit *• t; 
GOTO[myLDF]; 

FnumGT143: 

LU *■ (Fnum) - (154C); 
GOTO[FnumGT153. ALU >- 0]; 

* NBits «- 11C; * 10 11-bit fields 

t *■ (Fnum) - (144C); 
LeftBit «- t; 
GOTO[myLDF]; 

Fnum6T153: 

LU ♦■ (Fnum) - (163C); 
G0T0[FnumGT162, ALU >> 0]; 

NBits «■ 12C; * 7 12-bit fields 

t *■ (Fnum) - (154C); 
LeftBit «- t; 
GOTO[myLDF]; 

FnumGT162: 

LU *■ (Fnum) - (171C); 
GOTO[FnumGT170. ALU >= 0]; 

NBits «■ 13C; • "' * 6 13-bit fields 
t «- (Fnum) - (163C): 
LeftBit *■ t; 
GOTO[myLDF]; 

FnumGT170: 
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LU «- (Fnum) - (176C); 
G0T0[FnumGT175, ALU >= 0]; 

NB1ts <- 14C; 

t «- (Fnum) - (171C); 

LeftBit «- t; 

GOTOfmyLDF]; 

FnumGT175: 

t «- 202C: 

LU «■ (Fnum) - (t); 

GOTO[FnumGT201, ALU >» 0]; 

NBits «- 15C; 

t «- (Fnum) - (176C); 

LeftBit «- t; 

GOTO[myLDF]; 

FnumGT201: 

t ♦- 205C; 

LU «- (Fnum) - (t); 

GOTO[FnumGT204, ALU >» 0]; 

NBits «■ 16C; 

t «- 202C; 

t *- (Fnum) - (t); 

LeftBit «- t; 

GOTO[myLDF]; 

FnumGT204: 

NBits ♦■ 17C; 
t «- 205C; 
t «- (Fnum) - (t); 
LeftBit ♦- t; 



* 5 14-bit fields 



* done this way due to sign extend on arithmetic 



* 4 15-bit fields 



• done this way due to sign extend on arithmetic 



* 3 16-bit fields 



* 2 17-bit fields 



myLDF: t *• (Operand); 

tmp3 «- t; 

t <- (1C); 
bitNum «- t; 

LDFupperLoop: 

t ♦■ (LeftBit); 

LU - (bitNum) - (t) - 1; 

G0T0[LDFReset. ALU >- 0]; 

t «- ( tmp3 ) ; 

tmp3 «- (tmp3) + t; 

bitNum *■ (bitNum) + 1; 
G0T0[LDFupperLoop]; 

LDFReset: 

t ♦• (NBits); 
tmp2 *■ t; 
myResult <- 0C; 
t «- ( tmp3 ) ; 
tmp *■ t; 
t «• (1C); 
bitNum «- t; 

LDFlowLoop: 

t *■ (tmp2); 

LU *■ (bitNum) - (t) - 1; 
. GOTO[DoneWithFakeLDF, ALU >= 0]; 

t «- (myResult); 

myResult *■ (myResult) + t; 

t ♦■ ( tmp ) ; 

tmp ♦■ (tmp) + t; 

GOTO[LDFincBitNum, N0CARRY]; 

myResult ♦■ (myResult) + 1; 

LDFincBitNum: 

bitNum ♦■ (bitNum) + 1; 
G0T0[LDFlowLoop]; 
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DoneWithFakoLDF: 

LDFTest - (LDFTest) + 1; 

LOADPAGE[SubPage2]; 

G0T0P[hardwareDoIt]; 

FnumGT206: 

L0ADPAGE[SubPage2]; 

G0T0P[.+1]; 

0NPAGE[SubPage2]; 



t «- 301C; 

LU «- (Fnum) - (t); 

GOTO[FnumGT300. ALU >' 



0]; 



t <- 227C; 

LU «• (Fnum) - (t); 

G0T0[FnumGT226. ALU >» 0]; 

NBitS «• 1C; 

t *■ 207C; 

t ♦• (Fnum) - (t); 

LeftBit *• t; 

G0T0[myD1spatch]; 

FnumGT226: 

t «- 246C: 

LU - (Fnum) - (t); 

G0T0[FnumGT245, ALU >= 0]; 

NBitS •• 2C; 

t *■ 227C; 

t «- (Fnum) - (t); 

LeftBit «- t; 

GOTO[myDispatch]: 

FnumGT245: 

t *• 264C; 

LU *■ (Fnum) - (t); 

GOTO[FnumGT263, ALU >= 0]; 

MB its ♦■ 3C: 

t «- 246C; 

t *■ (Fnum) - (t); 

LeftBit ♦- t; 

GOTO[myDispatCh]; 

FnumGT263: 

NBitS > 4C; 

t *■ 264C; 

t «- (Fnum) - (t); 

LeftBit *■ t; 



* Page (change to page SubPage2) 



• last DISPATCH + 1 



* Dispatch Tests 



* 20 1-bit fields 



* 17 2-bit fields 



* 16 3-bit fields 



* 15 4-bit fields 



myD.ispatch: 

t «- (Operand): 

tmp3 «• t; 

t - (1C); 
bitNum *■ t; 



DispUpperLoop: 

t «- (LeftBit): 

LU *■ (bitNum) - (t) - 1; 

G0T0[DispReset, ALU >= 0]; 

t «- (tmp3); 

tmp3 ♦■ (tmp3) + t; 

bitNum *■ (bitNum) + 1; 
GOTO[DispUpperLoop]; 

DispReset: 

t - (NBits); 
tmp2 ♦• t; 
myResult «■ 0C; 
t «- (tmp3); 
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tmp «- t; 
t «- (1C); 
bitNum «• t; 

DispLowLoop: 

t «- (tmp2); 

I.U «- (bitNum) - (t) - 1; 

GOTO[DoneWithFakeDisp, ALU >» 0]; 

t *- (myResult); 

myResult ♦• (myResult) + t; 

t «■ (tmp); 

tmp «• (tmp) + t; 

G0T0[DispIncB1tNum, NOCARRY]; 

myResult *• (myResult) + 1; 

DispIncB itNum: 

bitNum *■ (bitNum) + 1; 
GOTO[DispLowLoop]; 

DoneWithFakeDisp: 

CheckAPC «- 1C: 

DispatchTest •• (DispatchTest) + 1; 

GOTO[hardwareDoIt]; 

FnumGT30(): 

t <- 320C; * last LSH + 1 

LU <- (Fnum) - (t); 
GOTO[FnumGT317, ALU >= 0]; 

t «- 300C; * LSH Tests 

t *■ (Fnum) - (t); 
MBits «- t; 

t ♦- (Operand); 
myResult *■ t; 

t «- (1C); 
bitNum ♦■ t; 

LSHloop: t *■ (NBits); 

LU «• (bitNum) - (t) - 1; 
GOTO[DoneWithFakeLSH, ALU >= 0]; 

t «- (myResult); 

myResult ♦■ (myResult) + t; 

bitNum *■ (bitNum) + 1; 
GOTO[LSHloop]; 

DoneWithFakeLSH: 

LSIITest «- (LSHTest) + 1; 
* GOTO[hardwareDoIt]; 

FnumGT317: 

t «- 337C; * last LCY + 1 

LU *• (Fnum) - (t); 
G0T0[FnumGT336, ALU >= 0]; 

t «■ 317C; * LCY Tests 

t ♦- (Fnum) - (t); 
NBits «■ t; 

t «- (Operand); 
myResult <- t; 

t «• (1C); 
bitNum *■ t; 

LCYloop: t 4- (NBits); ~— 

LU •■ (bitNum) - -(t) - IT 
GOTO[DoneWithFakeLCY, ALU >= 0]; 

t ♦• (myResult) ; 

myResult ♦• (myResult) + t; 

GOTO[LCYincBitNum, NOCARRY]; 
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myResult ♦■ (myResult) + 1; 

LCYincBitNum: 

bitNum *- (bitNum) + 1; 
GOTO[LCY1oop]; 

DoneWithFakeLCY: 

LCYTest •■ (LCYTest) + 1; 
GOTO[hardwareOoIt]; 

Fnum6T336: 

t «- 337C; 

LU «■ (Fnum) - (t); 

G0T0[FnumNeq337, ALU # 0]; 

FnumEq337: 

t <- (operand) AND (177400C); 
myResult *■ t; 

LHMaskTest «- (LHMaskTest) + 1; 
GOTO[hardwareDoIt] ; 

FnumNeq337: 

t <- 340C; 

LU «- (Fnum) - (t); 

GOTO[FnumNotUseful, ALU # 0]; 

FnumEq340: 

myResult *■ 0C; 

ZeroTest *• (ZeroTest) + 1; 

G0T0[hardwareDoIt]; 

FnumNotUsef ul : 

L0ADPAGE[Ma1nPage]; 
G0T0P[mainLoop]; 



* LHMASK function 



LHMASK Test 



* ZERO function 



* ZERO Test 



* untested functions 341 - 377 



HI 
H2: 



NOP; 
NOP; 



* resolves a branching conflict 

* resolves a branching conflict 



*** SUBTEST 3 
hardwareDoIt: 

TASK; 



SubTest «• 3C; 
t «- (Operand); 
Result ♦• t; 

Result «- ZERO[Result], AT[1100]: * Does not do the ZERO function because Fl 

* and F2 fields of location 1100 have been altered 



t «- APC&APCTASK; 
APCResult «• t; 



* save this for dispatch test 



ShortLoop ♦• ShortLoop, GOTO[.+2.R EVEN]; * Test for ShortLoop option 
GOTO[hardwareDoIt]; 



NOP; 

*** SUBTEST 4 
SubTest4: 

SubTest *■ 4C; 

t ♦• Result; 

LU «- (myResult) .- (t); 

GOTO[SubTest5, ALU = 0]; 

ResultBad: BREAKPOINT; 



* ShortLoop selected 

* resolves a branching conflict 



ShortLoop ♦■ ShortLoop, G0T0[.+2,R EVEN]; * Test for ShortLoop option 
G0T0[H1]; * ShortLoop selected 



NOP; 

*** SUBTEST 5 
SubTest5: 

SubTest «- 5C; 

LU «- (CheckAPC); 



resolves a branching conflict 
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GOTO[AllDone, ALU » 0]; 
t «- APCResult; 
LU ♦- (myResult) - (t); 
GOTO[APCOK, ALU « 0]; 

APCBad: BREAKPOINT; 

ShortLoop ♦• ShortLoop, G0T0[.+2,R EVEN]; * Test for ShortLoop option 
G0T0[H2J; * ShortLoop selected 



APCOK: 



NOP; 
NOP; 



* resolves a branching conflict 

* resolves a branching conflict 



AllDone: LOADPAGE[MainPage]; 
60T0P[mainLoop]; 



END; 



EDCYM 
( BEGIN J 



Initialize R regs. 



Max Pass a 2C 
PassCount * OC 
Short Loop a OC 



.41 



Initialize random number variables 



XA s 123C 
CA s 33031C 



V 



CLRM 



panel a 0000 



V 



Initialize R regs. 



A 



SubTestO 



mainLoop: 



InnerLoopCounter s OC 
Address a 1100C 



±. 



SubTest = OC 
CheckAPC a OC 



JL 



Increment InnerLoopCountei 



V 



yes 



BigLoop: 



InnerLoopCounter > 2* * 16 ? 



V 



Generate new random number XA 



V 



INCM 



Hi. 



SubTest 1 



SetVars: 



v 



Fnum[10:17] a XA[0:7] 
Operand > XA* PassCount 



GetCS: 



JL 



Read the control store micro instruction 
at location 1 100 into the R registers 
CSO, CS1.CS2 



ChangeFields: 



v 



Alter the F1 and F2 fields in the 
registers CSO and CS1 via mesa 
field operations WFA and WFB 



A 



CalcPar: 



_y 



Calculate a new parity bit for 
the altered micro instruction 
and insert it into the CS1 reg. 



WriteCS: 



v 



Write the new micro instruction 
back into control store location 1 100 



V 



Increment PassCount 



JL 



SubTest2 
Pg. 02 



v 



is PassCount > MaxPass ? 



yes 



Passed-EDCym-Test: 
p3REAK POINT] 



< i 



v 



Reset PassCount to zero 



END 



V 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCYM 


DOCUMENTATION FILE 

EDCym01.sH 


DESIGNER 

Spaur 


REV 
1 


DATE 

1/8/80 


PAGE 

01 



SubTest2 



SubTest2: 



yes 



Is Fnum>= 207C? 



Is Fnum>« 20C? 



yes 

FnumGT 017: ^ 



Is Fnum >= 37C? 



yes 

FnumGT036: ^ 



Is Fnum > = 55C? 



yes 

FnumGT054: 



±. 



Is Fnum >= 72C? 



yes 

FnumGT 071: ^ 



Is Fnum >= 106C? 



yes 



FnumGT105: 



v 



lsFnum>= 121C? 



yes 

FnumGT120: ^ 



Is Fnum >= 133C? 



yes 

FnumGT132: ^ 



Is Fnum >= 144C? 



yes 

FnumGT 143: ^ 



Is Fnum >= 154C? 



yes 



V 



FnumGT153> 
Pg. 03 y 



FnumGT206 
Pg. 04 



20 1-bit fields 



-> 



NBitS = 1C 
LeftBit = Fnum 



17 2-blt fields 



NBits = 2C 

LeftBIt = Fnum • 20C 



16 3-blt fields 



-> 



Nbits s 3C 

LeftBIt = Fnum-37C 



15 4-bit fields 



-> 



Nbits s 4C 

LeftBIt = Fnum- - 55C 



14 5-blt fields 



-> 



Nbits = 5C 

LeftBit = Fnum- 72C 



13 6-blt fields 



Nbits = 6C 

LeftBit = Fnum- 106C 



12 7-bit fields 



Nbits s 7C 

LeftBit = Fnum- 121C 



11 10-bit fields 



NBits = 10C 

LeftBit = Fnum- 133C 



10 11-bit fields 



NBits s 11C 

LeftBit 3 Fnum- 144C 



-> 



V 



V 



±. 



myLDF 
Pg. 03 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCym 


DOCUMENTATION FILE 

EDCym02.sil 


DESIGNER 

Spaur 


REV 
1 


DATE 

1/8/80 


PAGE 

02 



FnumGT153: 



Is Fnum>= 163C? 



7 12-bit fields 



yes 
FnumGT162jl 



NBits = 12C 

LeftBit = Fnum- 154C 



6 13-bit fields 



lsFnum>» 171C? 



yes 

FnumGT170;v|/ 



NBits = 13C 

LeftBit = Fnum- 163C 



5 14-bit fields 



Is Fnum >r 176C? 



-> 



yes 
FnumGT175: 



NBitS = 14C 

LeftBit = Fnum- 171C 



V 



±_ 



4 iSrblt fields 



Is Fnum>= 202C? 



-> 



yes 

FnumGT201: 



NBits s 1SC 

LeftBit = Fnum- 176C 



V 



3 16-bit fields 



Is Fnum >- 205C? 



yes 

FnumGT204: 

2 17-bit fields V 



NBits = 16C 

LeftBit = Fnum • 202C 



NBits = 17C 

LeftBit = Fnum • 205C 



myLDF: y 



v 



V 



tmp3 = operand 
BitNum = 1C 



LDFupperLoop: y 



^r 



Double Tmp3 
Increment BitNum 



Is BitNum >= LeftBit 



yes 



LDFreset: w 



^> 



tmp2 = NBits 
myResult = OC 
tmp = tmp3 
BitNum s 1C 



±- 



LDFLowLoop 
Pg.04 



XEROX D(0) 

ED I Diagnostic 



PROGRAM NAME 

EDCym 



DOCUMENTATION FILE 

EDCym03.sil 



DESIGNER 



Spaur 



REV 
1 



DATE 

1/8/80 



PAGE 

03 



•<- 



LDFLowLoop: y 



DoneWithFakeLDF: 



ls8ltNum> = tmp2 ♦ 1? 



yes 



JL 



Double myResult 
Double tmp 



lstmp< = 2** 16 ? 



yes 



LDFincBitNumjv 



Increment BitNjum 



y 



$4 LDFTest a LDFTest ♦ 1 



£> Increment myResult 



HardwareDoit 
Pg.07 



FnumGT206: 



lsFnum>= 301C? 



yes 



FnumGT300 
Pg.05 



v 



20 1-bit fields 



lsFnum>= 227C? 



FnumGT226: 



yes 



NBits * 1C 

LeftBit = Fnum • 207C 



±. 



17 2-bit fields 



Is Fnum>= 246? 



yes 



FnumGT245: 



NBits = 2C 

LeftBit = Fnum-227C 



JlL 



16 3-bit fields 



Is Fnum>s 264? 



yes 



FnumGT263: 

15 4-bit fields 



NBits = 3C 

LeftBit = Fnum - 246C 



JL 



NBits = 4C 

LeftBit = Fnum - 264C 



•^ 



V 



myDispatch 
Pg.05 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCym 


DOCUMENTATION FILE 

EDCym04.sil 


DESIGNER 

Spaur 


REV 
1 


DATE 

1/8/80 


PAGE 

04 



myDispatch: 



tmp3 s operand 
BltNum = 1C 



DispUpperLoop: 



v 



Is BltNum >» LsftBit + 1 ? 



yes 



DispReset: 



Double Tmp3 
Increment BitNum 



tmp2 = NBits 
myResult a OC 
tmp s tmp3 
BitNum s 1C 



/T 



DispL.owLoop: N , 



DoneWithFakeOisp: 



Is BltNum >s tmp2 ♦ 1 ? 



yes 



JL 



Double myResult 
Double tmp 



V 



Is tmp = < 2'*16? 



yes 



<r 



DisplncBi tNum: \/ 



Increment BitNum 



_y 



SetCheckAPC » 1C 
Increment DipatchTest 



Increment myResult 



V 



FnumGT300: 



-> 



HarclwareDoit 
Pg. 07 



lsFnum>s 320? 



yes 



FnumGT317 
Pg. 06 



JL 



NBits = Fnum • 300C 
myResult = operand 
BitNum a 1C 



LSHLoop: y 



Is BitNum > = NBits ♦ 1 ? 



yes 



PoneWithFakeLSH: v 



Double myResult 
Increment BitNum 



Increment LSHTest 



HardwareDoit 
Pg. 07 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCym 


DOCUMENTATION FILE 

EDCym05.sil 


DESIGNER 

Spaur 


REV 
1 


DATE 

1/8/80 


PAGE 

05 



A 



FnumGT317: 



FnumGT336: 



Is Fnum >s 337C? 



yes 



-X IsFnum = 337C? 



yes 



FnumEq337: 



SetmyResult = Left half of operand 
Increment LHMaskTest 



FnumNeq337: 



FnumEq340: 



Is Fnum a 340C? 



yes 



-> 



FnumNotUseful: y 



v 



myResult = OC 
Increment ZeroTest 



mainLoop 
Pg. 01 



NBits = Fnum -31 7C 
myResult = operand 
BitNum - 1C 



LCYIoop: 



v 



DoneWithFakeLCY: 



Is BitNum > a NBlts + 1? 



yes 



±- 



Double myResult 



V 



myResult > 2** 16? 



LCYincBi tNum; ^ 



Increment BitNum 



$> Increment LCYTest 



yes 



Increment myResult 



1 



HardwareDoit 
Pg.07 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCym 


DOCUMENTATION FILE 
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06 



SubTest3 



HardwareDoit: 



\f 



% 



TASK 



v 



Force the instuction at control Store location 1 TOO to be executed. 

Store the result In the "Result" register 

Store the A PC contents in the "APCResult" register 



V 



Short Loop 
selected ? 



yes 



SubTest4 



SubTest4: 



v 



Result = myRe8Ult ? 



yes 



SubTestS 



SubTest5: 



<- 



±. 



yes 



CheckAPC * 0? 



V 



fmyResult = APCResult? 



yes 



>L 



APCOK: 
AIIDone: <]/ 



ma in Loop 
Pg.01 



ResultBad: 

•^Tbreak point] 

v 



ShortLoop 
selected ? 



yes 



v 



APCBad: 

->TbReakpoinT| 



ShortLoop 
selected ? 



yes 



V 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDCym 


DOCUMENTATION FILE 

EDCym07.sil 


DESIGNER 

Spaur 


REV 
1 


DATE 

1/8/80 


PAGE 

07 



PARITY 





REVISION 


1 


COMM-ER0 


CYCLECONTROL 


377 


RUN-TIME 


7 


COMM-ER1 


PCXREG 


16 


PASSCOUNT 





C0MM-ER2 


♦PCFREG 


6 


MAXPASS 


2 


BOOT-ERR 


DBREG 


15 


SUBTEST 





*BOOTREASON 


SBREG 


17 






MEMSYNDROME 


MNBR 


5003 








*SSTKP 


377 


*XA 


123 


MYRESULT 


STKP 





FNUM 





RESULT 


*ALURESULT 


3 


OPERAND 





APCRESULT 


SALUF 











T 28 


7000 


INNERLOOPCOUN 





CS0 


AATOVA 









CS1 


TPC 20 


7777 






CS2 


CALLER ILCH+7216 


LDFTEST 





CSP 


*PAGE 


3 


DISPATCHTEST 







+ APC 


7011 


LSHTEST 





SHORTLOOP 


*APCTASK 


16 


LCYTEST 







*CIA 


GO+1 


LHMASKTEST 







CTASK 





ZEROTEST 
















40 

170167 




Loaded: EDCYM 



Time: 09.31 



Step at 0:80, BP at 0:GO+1 



Exit Boot Run -Prog Read-Cmds Break UnBreak ClrAddedBPs ClrAllBPs ShowBPs 
S3 MdiUffiffH Load LdSyms Compare Test-All Test Dump Show-Cmds Write-Cmds 
Virtual 



EDCym.dls 



13-Mar-80 11:09:40 



Page 



MicroO 8.6 (OS 16) of April 27, 1979 
at 20-Feb-80 8:22:11 

microd.run EDCym 



EDCym.DIB 561b instructions written 20-Feb-80 8:21:02 

Total of 561b instructions 

Checking' for errors... 

Linking. 

Building allocation lists... 

Assigning locations... 

561b instructions in rings involving ONPAGE or AT 
Reloading binaries... 
Checking assignment... 
Writing .MB file. . . 
Writing 1 isting. . . 

IM: 



Imag 


Real 


WO 


Wl 


W2 


Symbol 


EDCym. 


DIB: 













1404 


22005 


107060 


15 


GO START 


1 


1530 


22320 


101057 


15 


( + D 


2 


1527 


22001 


123055 


11 


(+2) 


3 


1526 


22323 


115053 


11 


(+3) 


4 


1525 


47 


7051 


1 


(+4) 


5 


1524 


20020 


101046 


11 


(+5) 


6 


1523 


20020 


101044 


1 


(+6) 


7 


1522 


10020 


101043 


11 


(+7) 


10 


1521 


10020 


101041 


15 


( + 10) 


11 


1520 


12020 


101037 


1 


( + 11) 


12 


1517 


12020 


101035 


5 


( + 12) 


13 


1516 


12020 


101033 


11 


( + 13) 


14 


1515 


12020 


101031 


15 


( + 14) 


15 


1514 


10004 


101026 


5 


( + 15) 


16 


1513 


10320 


105024 


5 


( + 16) 


17 


1512 


50 


25023 


1 


( + 17) 


20 


1401 


47 


5023 





8IGL00P 


21 


1411 


21050 


125020 





( + 1) 


22 


1410 


20150 


65017 


4 


(+2) 


23 


1407 


21450 


25015 





(+3) 


24 


1406 


50 


24205 





(+4) 


25 


1403 


50 


25023 


1 


(+5) 


26 


b 1402 


50 


25012 





PASSED-EDCYM-TEST 


27 


1405 


20020 


101022 


1 


( + 1) 


30 


1511 


22020 


101020 


1 


MAINLOOP 


31 


1510 


22020 


101017 


5 


( + 1) 


32 


1507 


21050 


125015 


11 


(+2) 


33 


1506 


50 


24002 





(+3) 


34 


1400 


22150 


65013 


15 


(+4) 


35 


1505 


23174 


45010 


15 


(+5) 


36 


1504 


23174 


67007 


15 


(+6) 


37 


1503 


23150 


65004 


11 


(+7) 


40 


1502 


22050 


125003 


15 


( + 10) 


41 


1501 


22000 


103001 


1 


SETVARS 


42 


1500 


22165 


67177 


14 


( + 1) 


43 


1477 


24050 


125174 





(+2) 


44 


1476 


20150 


65172 





(+3) 


45 


1475 


23150 


65171 


14 


(+4) 


46 


. 1474 


24050 


125167 


4 


(+5) 


47 


1473 


10150 


65164 


4 


(+6) 


50 


1472 


26050 


125162 


14 


(+7) 


51 


1471 


20 


41161 





GETCS 


52 


1470 


26147 


21156 


14 


( + 1) 


53 


1467 


47 


35554 





(+2) 


54 


1466 


54150 


65153 


14 


(+3) 


55 


1465 


26050 


125150 


4 


(+4) 


56 


1464 





43146 





(+5) 


57 


1463 


26147 


21144 


14 


(+6) 


60 


1462 


47 


35543 





(+7) 


61 


1461 


54150 


65141 


14 


( + 10) 
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jls 
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:40 


62 


1460 


26050 


125136 


10 


(+11) 




63 


1457 





47135 





(+12) 




64 


1456 


26147 


21133 


14 


(+13) 




65 


1455 


47 


35531 





(+14) 




66 


1454 


54150 


65127 


14 


( + 15) 




67 


1453 


26050 


125125 


14 


( + 16) 




70 


1452 


26162 


133122 


14 


( + 17) 




71 


1451 


24163 


53120 





CHANGEFIELDS 




72 


1450 


16050 


125116 





( + 1) 




73 


1447 


14014 


107114 


14 


(+2) 




74 


1446 


14150 


11113 


14 


(+3) 




75 


1445 


16151 


65110 





(+4) 




76 


1444 


26353 


125106 


4 


(+5) 




77 


1443 


24163 


63104 





(+6) 




100 


1442 


16050 


125102 





( + 7) 




101 


1441 


14002 


107101 


14 


( + 10) 




102 


1440 


14150 


11077 


14 


( + 11) 




103 


1437 


16151 


65074 





( + 12) 




104 


1436 


26353 


125073 


10 


( + 13) 




105 


1435 


26150 


65071 


4 


CALCPAR 




106 


1434 


10050 


125066 





( + 1) 




107 


1433 


26150 


65065 


10 


(+2) 




110 


1432 


10450 


165063 





(+3) 




111 


1431 


26463 


63061 


14 


(+4) 




112 


1430 


10465 


167057 





(+5) 




113 


1427 


10463 


153055 





(+6) 




114 


1426 


10461 


171052 





( + 7) 




115 


1425 


10760 


175051 





( + 10) 




116 


1424 


10160 


77046 





( + 11) 




117 


1423 


26450 


125044 


10 


( + 12) 




120 


1422 


26150 


65043 


14 


WRITECS 




121 


1421 


26150 


25040 


4 


( + 1) 




122 


1420 


10147 


21036 


4 


(+2) 




123 


1417 


47 


31434 





(+3) 




124 


1416 


26150 


25032 


10 


(+4) 




125 


1415 


10147 


21030 


4 


(+5) 




126 


1414 


47 


33427 





(+6) 




127 


1413 


45 


3024 





( + 7) 




130 


1412 


50 


25110 





( + 10) 




131 


444 


22000 


105001 


2 


SUBTEST2 




132 


600 


10 


57176 


1 


( + 1) 




133 


577 


25450 


25174 


1 


(+2) 




134 


576 


50 


24304 





(+3) 




135 


443 


25401 


1173 


1 


(+4) 




136 


575 


50 


24265 





(+5) 




137 


433 


24000 


103005 


11 


(+6) 




140 


502 


24150 


65002 


1 


(+7) 




141 


501 


24050 


125000 


15 


( + 10) 




142 


500 


50 


25176 





( + 11) 




143 


432 


25401 


37170 


1 


FNUMGT017 




144 


574 


50 


24260 





( + 1) 




145 


431 


24000 


105012 


11 


( + 2) 




146 


505 


25401 


41010 


1 


(+3) 




147 


504 


24050 


125006 


15 


(+4) 




150 


503 


50 


25176 





(+5) 




151 


430 


25402 


33166 


1 


FNUMGT036 




152 


573 


50 


24255 





( + 1) 




153 


427 


24000 


107020 


11 


(+2) 




154 


510 


25401 


77016 


1 


C+3) 




155 


507 


24050 


125014 


15 


(+4) 




156 


506 


50 


25176 





( + 5) ■- 




157 


426 


25403 


25165 


1 


FNUMGT054 




160 


572 


50 


24250 





( + 1) 




161 


425 


24000 


111027 


11 


(+2) 




162 


513 


25402 


73024 


1 


(+3) 




163 


512 


24050 


125022 


15 


(+4) 




164 


511 


50 


25176 





(+5) 




165 


424 


25404 


15162 


1 


FNUMGT071 




166 


571 


50 


24244 





( + 1) 




167 


423 


24000 


113034 


11 


(+2) 




170 


516 


25403 


65033 


1 


(+3) 




171 


515 


24050 


125030 


15 


(+4) 




172 


514 


50 


25176 





(+5) 




173 


422 


25405 


3161 


1 


FNUMGT105 


. . -*• 


174 


570 


50 


24241 





( + 1) 




175 


421 


24000 


115043 


11 


(+2) 
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176 


521 


25404 


55040 


1 


(+3) 


177 


520 


24050 


125036 


15 


(+4) 


200 


517 


50 


25176 





(+5) 


201 


420 


25405 


27157 


1 


FNUMGT120 


202 


567 


50 


24235 





( + 1) 


203 


417 


24000 


117050 


11 


(+2) 


204 


524 


25405 


43046 


1 


(+3) 


205 


523 


24050 


125044 


15 


(+4) 


206 


522 


50 


25176 





(+5) 


207 


416 


25406 


11154 


1 


FNUMGT132 


210 


566 


50 


24230 





( + 1) 


211 


415 


24000 


121056 


11 


(+2) 


212 


527 


25405 


67054 


1 


(+3) 


213 


526 


24050 


125053 


15 


(+4) 


214 


525 


50 


25176 





(+5) 


215 


414 


25406 


31153 


1 


FNUMGT143 


216 


565 


50 


24224 





( + 1) 


217 


413 


24000 


123064 


11 


(+2) 


220 


532 


25406 


51062 


1 


(+3) 


221 


531 


24050 


125060 


15 


(+4) 


222 


530 


50 


25176 





(+5) 


223 


412 


25407 


7151 


1 


FNUMGT153 


224 


564 


50 


24221 





( + 1) 


225 


411 


24000 


125073 


11 


(+2) 


226 


535 


25406 


71071 


1 


(+3) 


227 


534 


24050 


125066 


15 


(+4) 


230 


533 


50 


25176 





(+5) 


231 


410 


25407 


23146 


1 


FNUMGT162 


232 


563 


50 


24214 





( + 1) 


233 


407 


24000 


127101 


11 


( + 2) 


234 


540 


25407 


47076 


1 


(+3) 


235 


537 


24050 


125074 


15 


(+4) 


236 


536 


50 


25176 





(+5) 


237 


406 


25407 


35144 


1 


FNUMGT170 


240 


562 


50 


24211 





( + 1) 


241 


405 


24000 


131106 


11 


(+2) 


242 


543 


25407 


63105 


1 


(+3) 


243 


542 


24050 


125102 


15 


( + 4) 


244 


541 


50 


25176 





(+5) 


245 


404 


10 


45143 


1 


FNUMGT175 


246 


561 


25450 


25141 


1 


( + 1) 


247* 


560 


50 


24205 





(+2) 


250 


403 


24000 


133115 


11 


(+3) 


251 


546 


25407 


75113 


1 


(+4) 


252 


545 


24050 


125110 


15 


(+5) 


253 


544 


50 


25176 





(+6) 


254 


402 


10 


53136 


1 


FNUMGT201 


255 


557 


25450 


25135 


1 


( + 1) 


256 


556 


50 


24200 





(+2) 


257 


401 


24000 


135125 


11 


(+3) 


260 


552 


10 


45123 


1 


(+4) 


261 


551 


25450 


65120 


1 


(+5) 


' 262 


550 


24050 


125116 


15 


(+6) 


263 


547 


50 


25176 





(+7) 


264 


400 


24000 


137133 


11- 


FNUMGT204 


265 


555 


10 


53130 


1 


( + 1) 


266 


554 


25450 


65126 


1 


(+2) 


267 


553 


24050 


125177 


14 


(+3) 


270 


477 


24150 


65174 


4 


MYLDF 


271 


476 


16050 


125172 


10 


( + 1) 


272 


475 





43170 





(+2) 


273 


474 


26050 


125167 





(+3). 


274 


473 


24150 


65157 


14 


LDFUPPERLOOP 


275 


467 


27550 


25154 





( + 1) 


276 


466 


50 


24271 





(+2) 


277 


435 


16150 


65164 


10 


(+3) 


300 


472 


17150 


125163 


10 


(+4) 


301 


471 


27050 


125160 





(+5) 


302 


470 


50 


25167 





(+6) 


303 


434 


24150 


65153 


10 


LDFRESET 


304 


465 


16050 


125150 


4 


* ( + 1) 


305 


464 


14020 


101146 





(+2) 


306 


463 


16150 


65145 


10 


(+3) 


307 


462 


16050 


125143 





(+4) 


310 


461 





43140 





(+5) 


311 


460 


26050 


125137 





(+6) 
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312 


457 


16150 


65123 


4 


LDFLOWLOOP 


313 


451 


27550 


25120 





( + 1> 


314 


450 


50 


24301 





(+2) 


315 


441 


14150 


65134 





(+3) 


316 


456 


15150 


125133 





(+4) 


317 


455 


16150 


65130 





(+5) 


320 


454 


17150 


125126 





(+6) 


321 


453 


50 


24076 





( + 7) 


322 


437 


15050 


125074 





( + 10) 


323 


436 


27050 


125124 





LDFINCBITNUM 


324 


452 


50 


25137 





( + D 


325 


'440 


11050 


125116 


10 


DONEWITHFAKELDF 


326 


447 


45 


5115 





( + 1) . 


327 


446 


50 


25074 





(+2) 


330 


442 


45 


5113 





FNUMGT206 


331 


445 


50 


25125 





( + 1) 


332 


1052 


14 


43054 


2 


(+2) 


333 


1226 


25450 


25052 


2 


(+3) 


334 


1225 


50 


24224 





(+4) 


335 


1013 


11 


57142 


1 


(+5) 


336 


1161 


25450 


25141 


1 


(+6) 


337 


1160 


50 


24241 





(+7) 


340 


1021 


24000 


103101 


11 


( + 10) 


341 


1140 


10 


57077 


1 


( + 11) 


342 


1137 


25450 


65074 


1 


( + 12) 


343 


1136 


24050 


125072 


15 


( + 13) 


344 


1135 


50 


25070 


1 


( + 14) 


345 


1020 


12 


55137 


1 


FNUMGT226 


346 


1157 


25450 


25135 


1 


( + 1) 


347 


1156 


50 


24235 





(+2) 


350 


1017 


24000 


105110 


11 


(+3) 


351 


1144 


11 


57106 


1 


(+4) 


352 


1143 


25450 


65104 


1 


(+5) 


353 


1142 


24050 


125102 


15 


(+6) 


354 


1141 


50 


25070 


1 


( + 7) 


355 


1016 


13 


51132 


1 


FNUMGT245 


356 


1155 


25450 


25130 


1 


( + 1) 


357 


1154 


50 


24230 





( + 2) 


360 


1015 


24000 


107121 


11 


(+3) 


361 


1150 


12 


55116 


1 


(+4) 


362 


1147 


25450 


65115 


1 


(+5) 


363 


1146 


24050 


125113 


15 


(+6) 


364 


1145 


50 


25070 


1 


(+7) 


365 


1014 


24000 


111126 


11 


FNUMGT263 


366 


1153 


13 


51125 


1 


( + 1) 


367 


1152 


25450 


65123 


1 


(+2) 


370 


1151 


24050 


125071 


15 


(+3) 


371 


1134 


24150 


65066 


5 


MYDISPATCH 


372 


1133 


16050 


125065 


11 


( + 1) 


373 


1132 





43062 


1 


(+2) 


374 


1131 


26050 


125061 


1 


(+3) 


375 


1130 


24150 


65051 


15 


DISPUPPERLOOP 


376 


1124 


27550 


25046 


1 


( + D 


377 


1123 


50 


24244 





( + 2) 


400 


1023 


16150 


65057 


11 


(+3) 


401 


1127 


17150 


125055 


11 


(+4) 


402 


1126 


27050 


125053 


1 


(+5) 


403 


1125 


50 


25061 


1 


(+6) 


404 


1022 


24150 


65044 


11 


DISPRESET 


405 


1122 


16050 


125042 


5 


( + D 


406 


1121 


14020 


101040 


1 


(+2) 


407 


1120 


16150 


65037 


11 


(+3) 


410 


1117 


16050 


125034 


1 


(+4) 


411 


1116 





43032 


1 


(+5) 


412 


1115 


26050 


125031 


1 


(+6) 


413 


1114 


16150 


65015 


5 


DISPLOWLOOP 


414 


1106 


27550 


25013 


1 


( + 1) 


415 


1105 


. 50 


24255 





(+2) 


416 


1027 


14150 


65026 


1 


(+3) 


417 


1113 


15150 


125024 


1 


(+4) 


420 


1112 


16150 


65022 


1 


( + 5) 


421 


1111 


17150 


125020 


1 


(+6) 


422 


1110 


50 


24052 





( + 7) 


423 


1025 


15050 


125050 





( + 10) 


424 


1024 


27050 


125017 


1 


DISPINCBITNUM 


425 


1107 


50 


25031 


1 


( + 1) 
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426 


1026 


22000 


103011 


5 


DONEWITHFAKEDISP 


427 


1104 


11050 


125006 


15 


( + 1) 


430 


1103 


50 


25074 





(+2) 


431 


1012 


15 


41051 


2 


FNUMGT300 


432 


1224 


25450 


25046 


2 


( + 1) 


433 


1223 


50 


24214 





(+2) 


434 


1007 


14 


41175 




(+3) 


435 


1176 


25450 


65173 




(+4) 


436 


1175 


24050 


125171 


11 


(+5) . 


437 


1174 


24150 


65167 




(+6) 


440 


1173 


14050 


125164 




(+7) 


441 


1172 





43163 




( + 10) 


442 


1171 


26050 


125160 




( + 11) 


443 


1170 


24150 


65151 


11 


LSHLOOP 


444 


1164 


27550 


25147 




( + 1) 


445 


1163 


50 


24221 





( + 2) 


446 


1011 


14150 


65156 




(+3) 


447 


1167 


15150 


125154 




(+4) 


450 


1166 


27050 


125152 




(+5) 


451 


1165 


50 


25160 




(+6) 


452 


1010 


13050 


125144 




DONEWITHFAKELSH 


453 


1162 


50 


25074 





( + 1) 


454 


1006 


15 


77045 


2 


FNUMGT317 


455 


1222 


25450 


25043 


2 


( + 1) 


456 


1221 


50 


24200 





( + 2) 


457 


1001 


14 


77027 


2 


(+3) 


460 


1213 


25450 


65024 


2 


(+4) 


461 


1212 


24050 


125023 


12 


(+5) 


462 


1211 


24150 


65021 


6 


(+6) 


463 


1210 


14050 


125017 


2 


( + 7) 


464 


1207 





43015 


2 


( + 10) 


465 


1206 


26050 


125013 


2 


( + 11) 


466 


1205 


24150 


65003 


12 


LCYLOOP 


467 


1201 


27550 


25001 


2 


( + 1) 


470 


1200 


50 


24211 





(+2) 


471 


1005 


14150 


65010 


2 


(+3) 


472 


1204 


15150 


125006 


2 


(+4) 


473 


1203 


50 


24007 





(+5) 


474 


1003 


15050 


125005 





(+6) 


475 


1002 


27050 


125005 


2 


LCYINCBITNUM 


476 


1202 


50 


25013 


2 


( + 1) 


477 


1004 


13050 


125176 


5 


DONEWITHFAKELCY 


500 


1177 


50 


25074 





( + D 


501 


1000 


15 


77040 


2 


FNUMGT336 


502 


1220 


25450 


25037 


2 


( + 1) 


503 


1217 


50 


24114 





(+2) 


504 


1046 


24237 


77034 


6 


FNUMEQ337 


505 


1216 


14050 


125033 


2 


( + 1) 


506 


1215 


13050 


125030 


12 


(+2) 


507 


1214 


50 


25074 





(+3) 


510 


1047 


16 


41137 





FNUMNEQ337 


511 


1057 


25450 


25134 





( + 1) 


512 


1056 


50 


24121 





(+2) 


5.13 


1050 


14020 


101131 





FNUMEQ340 


514 


1054 


13050 


125126 


14 


( + 1) 


515 


1053 


50 


25074 





(+2) 


516 


1051 


45 


7133 





FNUMNOTUSEFUL 


517 


1055 


50 


25023 


1 


«i< l> _ 


520 


1061 


50 


25140 





521 


1060 


50 


25074 





H2 


522 


1036 


50 


25344 





HARDWAREDOIT 


523 


1062 


22000 


107400 





( + 1) 


524 


1037 


24150 


65005 


5 


(+2) 


525 


1102 


14050 


125001 


5 


(+3) 


526 


81100 


14176 


101002 


5 


(+4) 


527 


1101 


50150 


65176 


14 


(+5) 


530 


1077 


14050 


125175 


10 


(+6) 


531 


1076 


20150 


124503 


14 


(+7) 


532 


1041 


50 


25074 


0. 


( + 10) 


533 


1040 


50 


25173 





( + 11) 


534 


1075 


22000 


111170 





SUBTEST4 


535 


1074 


14150 


65166 


4 


( + 1) 


536 


1073 


15450 


25164 





(+2) 


537 


1072 


50 


24070 





(+3) 


540 


b 1035 


50 


25146 





RESULTBAD 


541 


1063 


20150 


124506 


14 


( + 1) 



Page 



EDCym.dls 






13-Mar-80 11:09 


:40 




542 


1043 




50 25143 





(+2) 






543 


1042 




50 25071 





(+3) 






544 


1034 




22000 113163 





SUBTEST5 






545 


1071 




22150 25161 


4 


( + 1) 






546 


1070 




50 24064 





(+2) 






547 


1033 




14150 65153 


10 


(+3) 






550 


1065 




15450 25151 





(+4) 






551 


1064 




50 24061 





(+5) 






552 b 


1031 




50 25154 





APCBAD 






553 


1066 




20150 124512 


14 


( + 1) 






554 


1045 




50 25140 





(+2) 






555 


1044 




50 25060 





(+3) 






556 


1030 




50 25065 





APCOK 






557 


1032 




45 7156 





ALLDONE 






560 


1067 




50 25023 


1 


( + 1) 






Page 400: 201 


locations used. 


177 free 






Page 1000: 227 


locations used, 


151 free 






Page 1400: 131 


locations used. 


247 free 
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20 







PASSCOUNT 










21 




2 


MAXPASS 










22 






INNERLOOPCOUNTER 






23 







SHORTLOOP 










24 






SUBTEST 










25 






CHECKAPC 










26 






CA 










27 






XA 










30 






FNUM 










31 






OPERAND 










32 






NBITS 










33 






LEFTBIT 










34 






BITNUM 










35 






CS0 










36 






CS1 










37 






CS2 










40 






CSP 










41 






ADDRESS 










42 






LDFTEST 










43 






DISPATCHTEST 










44 






LSHTEST 










45 






LCYTEST 










46 






LHMASKTEST 










47 






ZEROTEST 










50 






MYRESULT 










51 






RESULT 










52 






APCRESULT 










53 






STUFFTMP 










54 






TMP 










55 






TMP2 










» 56 






TMP3 










57 




1 


REVISION 










60 




7 


RUN-TIME 










61 






RLC9 
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3 warning(s) , 
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free 
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;: :EDCymLog .MIDAS : Logger for EDCym program 

: By : M. Spaur Jan, 8. 1980 

start L X AppendOutput EDCym. report; 

L X WriteMessage ~ **** START EDCym Test : ; 

L X WriteDT; 

L X WriteMessage ******•*****»»»« : 

L X Skip .continue; 

breakpoint L X AppendOutput EDCym. report; 
I A18 SkipNE RESULTBAD; 
L X Skip .ResultBad; 
L A18 SkipNE APCBAD; 
L X Skip .APCBad; 
L A18 SkipNE PASSED-EDCYM-TEST; 
L X Skip .passtest; 

notmybreak L X AppendOutput EDCym. report; 

L X WriteMessage *•* FAILed: Not at my breakpoint ~; 

L X WriteMessage ' Parity * ; 

R A0 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CIA * ; 

R A18 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK = ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK = ; 

R A17 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APC = : 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' TPC = ; 

R A13 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 
L X Exit: 

ResultBad L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * Result does not equal to myResult ~: 

L X WriteMessage ' Result = : 

R C9 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' myResult = 

R C8 Val : 

L X WriteMessage; 

L X WriteMessage ~: 

bad L X WriteMessage ' SUBTEST = 
R B4 Val : 
L X WriteMessage: 
L X WriteMessage ~: 

L X WriteMessage ' PASSCOUfJT = 

R B2 Val ; 

I X WriteMessage: 
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L X WriteMessage ~: 

L X Skip .continue; 

.APCBad L X WriteMessage *** FAILed: at my Breakpoint -; 

L X WriteMessage * APCResult does not equal to myResult -; 

L X WriteMessage ' APCResult ■ ; 

R CIO Val; 

L X WriteMessage; 

L X WriteMessage -; 

I X WriteMessage ' myResult - ; 

R C8 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X BackSkip .bad; 

.passtest L X WriteMessage Passed EDCym Test : ; 

L X WriteDT; 

L X WriteMessage ; 

L X Skip .continue; 



continue 


L X WriteMessage ~; 




L X CloseOutput; 




L X DisplayOn; 




L X Confirm; 




L X TimeOut 1000000000; 




L X Continue; 




L X Skip 2; 




L X ShowError Program failed to CONTINUE 




L X BackSkip .notmybreak; 




L X DisplayOff; 




L X BackSkip .breakpoint; 
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L A19 Val 

L X Confirm 

L X Load EDCYM; 

L BO Addr REVISION; 

L Bl Addr RUN-TIME; 

L B2 Addr PASSCOUNT; 

L B3 Addr MAXPASS; 

L B4 Addr SUBTEST; 

L B7 Addr XA; 

L B8 Addr FNUM; 

L B9 Addr OPERAND; 

L Bll Addr INNERLOOPCOUNTER; 

L B14 Addr LDFTEST; 

L B15 Addr DISPATCHTEST; 

L B16 Addr LSHTEST; 

L B17 Addr LCYTEST; 

L B18 Addr LHMASKTEST; 

L B19 Addr ZEROTEST; 

L C7 Addr MYRESULT; 

L C8 Addr RESULT; 

L C9 Addr APCRESULT; 

L Cll Addr CSO; 

L C12 Addr CS1; 

L C13 Addr CS2; 

L C14 Addr CSP; 

L C16 Addr SHORTLOOP; 

L X DisplayOn; 

L X TimeOut 10000 

L X SS GO 

L X Skip 1 

L X ShowError Single-step at GO hung 
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*** Revision 1 *** 
********** a;***************************************************************************** 

*** EDField. mc : microcode to test the Mesa field selection operations RF, WFA, WFB 
*** Purpose : This test simulates the RF. WFA, and WFB operations without 

using the cycler-masker and then compares the results with 

the actual executions of the corresponding operations. 
*** Hardware Configuration : Standard 4 CPU boards. 
*** IMPORTANT NOTE : ON VIRGIN SYSTEMS RUN EDFIELD BEFORE EDCYM. 

This EDField test checks hardware that must work properly 

for EDCym to be useful . 
*** Approximate run time : twenty seconds. 
*** Written by : Tom Horsley. Dec. 13, 1977 
•** Modified by : Bill Kennedy, March 10, 1978 

Took code off of Page 0. 
•** Modified by : Bill Kennedy, April 24, 1978 

Now uses Maintenance Panel. 
*** Modified by : C. Thacker, (date unknown) 

Improved readability. 
*** Modified by : C. Thacker, August 22, 1978 

Made XB ■ -1 always. 
••* Rewritten by : J. Kellman, March 6, 1980 

Eliminated all cycler-masker functions from both the 

simulated field selection operations and random number 

generators, as well as standardizing the program format. 
**********»> I**************************************************************************** 



**************************************************************************************** 

* SubTest Description: 

* SubTest 0: (not really a test) generates and decodes a Mesa Field descriptor. 

* SubTest 1: simulates and then executes the RF operation (Mesa Read-Field) 

and compares the results. 

* SubTest 2: simulates and then executes the WFA operation (Mesa Write-Field A) 

and compares the results. 

* SubTest 3: simulates and then executes the WFB operation (Mesa Write-Field B) 

and compares the results. 

**************************************************************************************** 

* Subroutine Description: 

* LeftCycle: uses ALU additions to simulate the LCycle function 

without using the cycler-masker. 

* LeftShif't: uses ALU additions to simulate the LShift function 

without using the cycler-masker. 

**************************************************************************************** 

* Breakpoints: 

* RFBAD: actual RF result failed to agree with simulated RF result 

* WFABAD: actual WFA result failed to agree with simulated WFA result 

* WFBBAD: actual WFB result failed to agree with simulated WFB result 

* Passed-EDField-Test: the system passed thru all the passes of EDField 

**************************************************************************************** 

* Breakpoint Logic Analyzer Sync Points: 

* RFBAD: Control Store address 457 

* WFABAD: Control Store address 451 

* WFBBAD: Control Store address 441 

* Passed-LDField-Test: Control Store address 401 

**************************************************************************************** 



EDField. mc 2-Apr-SO 10:33:09 Page 



* Special Register Definitions: 

* LoopWithin: At any breakpoint the user may change the value of LoopWithin. 

Setting LoopWithin to the nonzero value N will cause EDField to loop 
endlessly within the subtest N (when it gets to this subtest). 
If LoopWithin is zero (the default) then the program goes straight 
through all the tests as normal. 

* RandFlag: At any breakpoint the user may change the value of RandFlag 

to 1, which will cause CurrentPattern to take on random values. 

If RandFlag is zero (the default) then CurrentPattern will be set to 

a 16-bit word of all ones during each execution of subtest 0. 

* XA and XB: The two random numbers held in these registers XA and XB are used to 

choose field descriptor (FDescr) and CurrentPattern values 
as follows: FDescr <- XA[0:7] 

CurrentPattern <- XB (only if RandFlag » 1) 

* InnerLoopCounter: This register contains the number of passes through the mainloop. 

The mainloop is simply the set of all of the subtests. When 
InnerLoopCounter = (2**16) - 1, all of the possibilities that are tested 
by EDField have been tested exactly once. 

* PassCount: This register displays the number of the current pass of the entire 

EDField test (2**16 iterations of the mainloop). The maintenance 
panel shows the number of the currently running pass. 

* MaxPass: This register determines how many times the entire EDField test will repeat 

% 
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* INITIALIZATION: 



BUILTIN[INSERT,24]: 

INSERT[d01ang]; 

TITLE[MesaFieldTest]; 



* « * * * * * * * * 



R-registers: ************* 



RV[Revision, 1. 1]; * revision number is 1 for this program 

RV[Run-Timt9,2,24J; * run time for this test is twenty seconds 

RV[PassCoumt,3]; * pass count for this program 

RV[MaxPass,4,2]; * maximum number of passes for this run 

RV[SubTest,5J; * current location of test 

RV[InnerLoopCounter.6] ; * inner loop counter 

RV[LoopWitfoin, 10,0]; • set to N to loop on subtest n 

RV[RandFlag,ll,0]; * => CurrentPattern always 177777, 1 => random pattern 

RV[CurrentPattern,12]; * holds the argument for the RF, WFA, and WFB operations 

RV[CA,13]; * used in random number generation, A*XA + CA 

RV[XA,14]; * random number generated via A*XA + CA 

RV[CB,15]; * used in random number generation, A*XB + CB 

RV[XB,16]; * random number generated via A*XB + CB 

RV[FDescr, 17]; * Mesa field descriptor 

RV[StartBit,20]; * start field of mesa field descriptor (first 4 bits) 

RV[EndB1t.21]; * last bit of mesa field 

RV[Length,22]; * actual length of mesa field from descriptor (last 4 bits plus 1) 

RV[ShiftIndex,23]; * index register in LeftCycle and LeftShift 

RV[ShiftSize,24]; * number of bits to be shifted in simulated shift (or cycle) 

RV[Shif tVa'lue.25]; * holds word to be shifted in simulated shift (or cycle) 

RV[Mask,26] ; * the mask used in simulating the RF, WFA, and WFB operations 

RV[SimResu'l t.27]; * result of simulated operations 

RV[Result .30]; * holds the hardware result of current operation 

**«***«*** m ft**************************************************************************** 

*** MAIN routine: 

SET[MainPage. 1] ; * set label for Main Program page 
ONPAGE[MainPagej: 

go: 
start: 

* Initialize random generator registers: XA ♦■ 123. CA «- 33031 

XA «- AND@[0377, 123]C; 

XA - (XA) OR (AND@[177400. 123]C); 

CA - AND@[0377, 33031]C; 

CA - (CA) OR (AND@[177400, 33031]C); 

* Initialize random generator registers: XB «- 456, CB «- 33035 

XB - AND@[0377, 456]C; 

XB ♦• (XB) OR (AND@[177400, 456]C); 

CB - AND@[0377. 33035]C; 

CB - (CB) OR (AND@[177400. 33035]C): 

CLIiARMPANEL: 

InnerLoopCounter - 0C : * Initialize inner loop counter 

PassCount «- 0C: * Initialize outer loop counter 

bi-gLoop: t - PassCount *- (PassCount) + 1: 
LU <- (MaxPass) - (t) : 
GOTO [.+2. ALU >= 0]; 

Passed-EDF ield-Test: BREAKPOINT. goto[go]: 

INCMPANEL: 

■■■-* SUBTEST *** 

rui i n! OOD : Sut Test - 0C : 

I U - \ l.oopW i 111 in ! ; 
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GOTO [ExtractFDescr. ALU # 0]: * Do next pattern value? 

InnerLoopCounter «- ( InnerLoopCounter) + 1: 
GOTO [bigLoop. CARRY]; 

* Random (4005*XA + CA mod 2**16) 
t «• XA; 

ShiftValue - t: 

ShiftSize - 2C; * left shift old XA by 2 bits 

CALL [LeftShift]; 

t «• ShiftValue; 

XA <- (XA) + t; * add shifted value to XA 

ShiftSize «- 11C; • left shift original old XA by a total of 13C bits 

CALL [LeftShift]; 

t *• ShiftValue; 

t «- (XA) + t; * add shifted value to subtotal 

t ♦• {'CA) + t; * add CA 

XA ♦• t; * result is new XA 

• Random (4005*XB + CB mod Z*«16) 
t «- XB; 

ShiftValue «■ t; 

ShiftSize «■ 2C; • left shift old XB by 2 bits 

CALL [LeftShift]; 

t «- ShiftValue; 

XB *■ (XB) + t; • add shifted value to XB 

ShiftSize «- 11C; * left shift original old XB by a total of 13C bits 

CALL [LeftShift]; 

t «■ ShiftValue; 

t «- (XB) + t; * add shifted value to subtotal 

t «- (CB) + t; * add CB 

XB *■ t; * result is new XB 

LU *■ RandFlag; 

DBLGOTO [PatternAllOnes. PatternRandom, ALU » 0]; 
PatternAllOnes: CurrentPattern - (ZERO) - 1. goto[ExtractFDescr] ; 
PatternRandom: CurrentPattern ♦- t. goto[ExtractFDescr] ; 

ExtractFDescr: t «- XA; * XA will yield the field descriptor for this test 

ShiftValue «- t; * we extract all our descriptor values by 

* ALU-simulated cycling and masking 

* (to avoid using the cycler-masker) 

ShiftSize «- IOC; * simulate an eight-bit left cycle 
CALL [LeftCycle]; 

t - ShiftValue: 

FDescr «- t: 

FDescr «- (FDescr) and (377C): * mask to get entire field descriptor 

DecodeFDescr: t «- FDescr; * now decode this FDescr 
ShiftValue - t; 

ShiftSize «- 14C; * simulate a twelve-bit left cycle 
CALL [LeftCycle]; 

t ♦■ ShiftValue; 

StartBit *■ t; 

StartBit - (StartBit) and (17C); * mask to get field start bit index 

ShiftSize *• 4C : * simulate a further four-bit left cycle 
CALL [LeftCycle]; 

t ♦■ ShiftValue: 

Length - t: 

Length ♦■ (Length) and (17C): * mask to get length field 

Length - (Length) ■*- 1 : * adjust length value to actual length 

t - (Length) - 1 : 

t - (StartBit) + t: 

EndBit - t : * proper end bit index calculated 

LU - (EndBit) - (20C): * check if end bit makes sense 
GOTO [EndBitPastf nd. ALU 



- v 



GOTO [RFTest] 
t n:!!-: i t I'astEnd: GOTO [mainloop]: 
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*** SUBTEST 1 *** 

RFTest: SubTest - 1C: * first simulate RF 

ShiftValue - (ZERO) - 1; * form Mask 

t ♦- Length; 
ShiftSize «- t; 
CALL [LeftShift]; 

t «- (ShiftValue) xnor (OC); 
Mask <- t; 

t ♦• CurrentPattern; * left cycle current pattern by (Startbit + Length) bits 

ShiftValue «■ t; 

t «- Length; 

t «- (StartBit) + t; 

ShiftSize «- t; 

CALL [LeftCycle]; 

t ♦• Mask; * apply Mask to left-cycled CurrentPattern 

t ♦■ (ShiftValue) and t; 
SimResult «- t; 

CYCLECONTROL - FDescr; * now do real RF 
t ♦■ RF[CurrentPattern]; 
Result *• t; 

lu ♦• (LoopWithin) - (1C); * loop within this test? 
GOTO [.+2, ALU # 0]: 
GOTO [RFTest]; 

LU *■ (SimResult) - (t); * compare RF results 
GOTO[WFATest, ALU = 0]; 
RF8AD: BREAKPOINT, goto[RFTest] ; 

*** SUBTEST 2 *** 

WFATest: SubTest - 2C: * first simulate WFA 

ShiftValue - (ZERO) - 1: * form Mask 

t *- Length; 
ShiftSize *• t; 
CALL [LeftShift]; 

ShiftValue - (ShiftValue) xnor (OC); 

t «- (StartBit) - (20C); 
t «- (Length) + t; 
ShiftSize *■ (ZERO) - t; 
CALL [LeftShift]; 

t - ShiftValue; 
Mask - t: 

t - CurrentPattern; * left cycle CurrentPattern by 20C - (StartBit + Length) bits 
ShiftValue ♦• t; 
CALL [LeftCycle]; 

t - Mask; * apply Mask to left-cycled CurrentPattern 

t ■- (ShiftValue) and t; 
SimResult *■ t: 

CYCLECONTROL - FDescr; * now do real WFA 
t *- WFA[CurrentPattern]; 
Result - t: 

lu *■ (LoopWithin) - (2C); * loop within this test? 
GOTO f + 2. ALU # 0]: 
GOIO [WFATest]: 

LU - (SimResult) -it): * compare WFA results 
G O T 1 WFBlest. ALU = 0']: 
■••.: A|-;AiV HfU AK POINT. goto[Wf A Test]: 
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»** SUBTEST 3 *** 

WFBTest: SubTest «- 3C; * first simulate WFB 

ShiftValue - (ZERO) - 1: * form Mask 

t «- Length; 
ShiftSize «- t: 
CALL [LeftShift]; 

ShiftValue *■ (ShiftValue) xnor (0C); 

t «- (StartBit) - (20C); 
t *■ (Length) + t; 
ShiftSize «- (ZERO) - t; 
CALL [LeftShift]; 

t «- ShiftValue; 
Mask «- t; 

t <- CurrentPattern; * apply Inverse Mask to CurrentPattern 

SimResult ♦■ t; 

t *■ Mask; 

SimResult «- (SimResult) andnot t: 

t «- Mask; * insert masked CurrentPattern into XB's pattern 

t «- (XB) and t; 

SimResult *- (SimResult) or t; 

CYCLECONTROL «- FDescr; * now do real WFB 

t - (WFB[CurrentPattern]) OR t; * register t still holds XB and Mask 

Result ♦• t; 

lu *■ (LoopWithin) - (3C); * loop within this test? 
GOTO [.+2. ALU # 0]: 
GOTO [WFBtest]; 

LU *■ (SimResult) - (t); * compare WFB results 
GOTO[.+2. ALU ■ 0]: 
WFBBAD: BREAKPOINT , goto[wf btest] ; 

GOTO[mainLoop]; 



,**«**,** SUBROUTINE: LeftCycle ********* 
* 

* (to simulate LCycle without using the cycler-masker) 

* This subroutine left cycles ShiftValue by ShiftSize bits. 

LeftCycle: Shiftlndex ♦- 1C; 
CycleLoop: t «- (ShiftSize); 

LU «- (Shiftlndex) - (t) -1; 

GOTO[CycleEnd. ALU >= 0]; * done with cycles yet? 

t «- ShiftValue; * ShiftValue holds the value to be left cycled 

ShiftValue *■ (ShiftValue) + t; * simulate a left shift by adding to self 

GOTO[.+2. NOCARRY]; * bit shifted out left comes back into right side 

ShiftValue «- (ShiftValue) + 1: 

Shiftlndex «- (Shiftlndex) + 1; 
GOTO[CycleLoop]; 

CycleEnd: RETURN: 

********* SUBROUTINE: LeftShift ********* 

* (to simulate LShift without using the cycler-masker) 

This subroutine left shifts ShiftValue by ShiftSize bits. 

i.e F tin if t : Shift Index - 1C ; 
Sh if tl cop: t - (ShiftS i/e) : 
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LIJ - (Shiftlndex) - (t) - 1; 

G0T0[ShiftEnd. ALU >= 0]; * done with shifts yet? 

t - ShiftValue; * SttiftValue holds the value to be left cycled 

ShiftValue «- (ShiftValue) + t: * simulate a left shift by adding to self 

Shiftlndex <- (Shiftlndex) + 1; 
G0T0[ShiftLoop]; 

ShiftEnd: RETURN; 



END; 



EDField 



BEGIN 



go: 
start: 



MaxPass «- 2 
RandFlag «- 
LoopWithin «- 



/T 



initialize random generator 
registers 



CLRM 



XA«-123C 
CA«-33031C 
XB-456C 
CB «- 33035C 



panel » OOOO 



JL 



initialize counters 



bigLoop: 



increment PassCount 



PassCount «-0 
InnerLoopCounter ♦• 



panel Indicates the 
currently running 
pass's number 



Passed-EDField-Test:^ 6 ^ 

T breakpoint! 

kiaa ansa ■■§ am mmmml 





END 



SubTestO 



ma in Loo pj ^ 

no 



[LoopWithin s 0? 



LoopWithin can only have 
the values 0, 1,2, or 3. 



±- 



yes 



increment InnerLoopCounter 



carry ? 



yes 



> 



bigLoop 

page 01 



generate new random 
numbers XA and XB 



CALLLeftShift 

page 03 



±. 



RandFlag 
selected ? 



PatternAIIOnes: 



v 



PatternRandom: 



CurrentPattern «- a 16-bit 
word of all ones 



Hi. 



Extrac tFDescr: ]/ 



±. 



CurrentPattern «- XB 



FDescr-XA[0:7] 



DecodeFDescr: 



<- 



v 



_v 



StartBit«-FDescr[0:3] 



Jt 



Length «- FDescr[4:7] ♦ 1 



set a breakpoint here at 
DecodeFDecscr In order 
to stop and supply your 
own FDescr value or 
CurrentPattern value 



EndBit *- StartBlt ♦ Length ■ 1 



±. 



EndBitPastEnd: 



[EndBit>» 20C ?) Y<?S > 



mainLoop 

page 01 



RFTest 

page 02 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

EDField 


DOCUMENTATION FILE 

EDField -01. sil 


DESIGNER 

Kellman 


REV 
1 


DATE 

3/6/80 


PAGE 

01 



SubTest 1 



SubTest 2 



RFTest: 
— > 



ShiftValue *--1C 



I 



ShiftSize «• Length 



left shift ShiftValue 
by ShiftSize bits 



I 



Mask *-invert[ShlftValue] 



ShiftValue «- CurrentPattern 



I 



(form Mask) 



CALL 
LeftShift 

page 03 



(left cycle 
CurrentPattern) 



ShiftSize t-StartBit + Length 



left cycle ShiftValue 
by ShiftSize bits 



SimResult - ShiftValue 
and Mask 



I 



CYCLECONTROL «- FDescr 



I 



CALL 
LeftCycle 

page 03 

(simulated RF) 



(realRF) 



Result «- RF[CurrentPattern] 

Loop R F Test: \ 

•IS^LoopWithln ■ 1 ? ) 



1L 



RFBAD: 



Result \ nn f— — — — — * 
the same as ) no > BREAKPOINT 
SimResult? / *— — — y — — — * 



RFTest 

page02 



WFATest: 



ShiftValue «--1C 



ShiftSize «- Length 



I 



left shift ShiftValue 
by ShiftSize bits 



I 



(form Mask) 



CALL 
LeftShift 

page 03 



invert ShiftValue 



I 



ShiftSize <- 20C • (StartBIt 
♦ Length) 



left shift ShiftValue 
by ShiftSize bits 



I 



Mask ** ShiftValue 



I 



ShiftValue *- CurrentPattern 



I 



left cycle ShiftValue 
by ShiftSize bits 



I 



SimResult*- ShiftValue 
and Mask 



I 



CYCLECONTROL «- FDescr 



CALL 
LeftShift 

page 03 



(left cycle 
CurrentPattern) 



CALL 
LeftCycle 

page 03 

(simulated WFA) 



(real WFA) 



Result <- WFA[CurrentPattern] 

LoopWFA Test;>| 



■I£2-<Loop Within = 2? 



V 



Result 
the same as 
SimResult ? 



yes 



WFABAD: 

■^TbreakpoinTI 

1 



WFBTest 

page 03 



WFATest 

page02 



XEROX 
ED 


D(0) 
Diagnostic 


PROGRAM NAME 

ED Field 


DOCUMENTATION FILE 

EDField-02.sil 


DESIGNER 

Kellman 


REV 
1 


DATE 

3/6/80 


PAGE 

02 



SubTest3 



WFBTest: 



ShiftValue --1C 



I 



ShiftSize «- Length 

1 



left shift ShlftValue 
by ShiftSize bits 



I 



invert ShlftValue 



I 



ShiftSize - 20C - (StartBit 
♦ Length) 



I 



left shift ShlftValue 
by ShiftSize bits 



I 



Mask «- ShiftValue 



SimResult - CurrentPattern 
andnot Mask 



I 



SimResult *- SimResult or 
(XB and Mask) 



(form Mask) 



CALL 
LeftShift 

page03 



CALL 
LeftShift 

page03 



(simulation of WFB) 



/F 



SUBROUTINE This subroutine simulates 

left cycling of a 16-bit word 

S~~ ^\ without using the 

(i #*r» i 1 cycler-masker hardware. 

^LeTlL-yCiei It left cycles ShiftValue by 

__V ShiftSize bits. 



JL 



Shiftlndex «-1C 



CycleLoop: v 



Shlftlndex 
> 

ShiftSize? 



CycleEnd: 



ves ^ 



RETURN 



no 



ShiftValue *- ShiftValue + 
ShiftValue 



Carry? 



yes 



increment ShiftValue by 1 



increment Shiftlndex 



J/ 



CYCLECONTROL - FDescr 



I 



Result - WFBfCurrentPattern] 
or (XB and Mask) 



LoopWF'B Test:| 

; ¥ e! H LoopWithin = 3? 



JL 



Result 
the same as 
SimResult? 



\f 



yes 



mainLoop 

page 01 / 



(real WFB) 



WFBBAD: 

■^breakpoint] 



1l 



WFBTest 

page03 



SUBROUTINE 



This subroutine simulates 
left shifting of a 16-bit word 
without using the 
cycler-masker hardware. 
It left shifts ShiftValue by 
ShiftSize bits. 




ShiftValue*- ShiftValue + 
ShiftValue 



V 



increment Shiftlndex 



y 



XEROX 
ED 



D(0) 
Diagnostic 



PROGRAM NAME 

EDField 



DOCUMENTATION FILE 

EDField-03.sil 



DESIGNER 

Kellman 



REV 
1 



DATE 

3/6/80 



PAGE 

03 



parity 





REVISION 


1 


COMM-ER0 


CYCLE CONTROL 


63 


RUN-TIME 


24 


COMM-ER1 


PCXRE6 





PAS3C0UNT 





C0MM-ER2 


PCFREG 


9 


MAXPASS 


■^ 


BOOT-ERR 


DBRE6' 


20 


SUBTEST 





*BOOTREASON 


SBRE6 


40 


INNERLOOPCOUN 





MEMSYNDROME 


MNBR 


4200 








*SSTKP 


377 








STKP 





FDESCR 







♦ALURESULT 


3 


STARTBIT 







*SALUF 


377 


ENDBIT 







T £0 


7000 


LENGTH 







AATOVA 











TPC 20 


7777 






RANDFLAG 


CALLER ILC9- 


► 7516 


CURRENTPATTER 







♦PAGE 


1 


XB 





LOOPWITHIN 


*APC 


7011 


SIMRESULT 







*APCTASK 


16 


RESULT 







♦CIA 


GO+1 








CTASK 
















40 

77 



Loaded: EDFIELD 



Step at ®:GO, BP at 0:60+1 



Time: 10.33 



Exit Boot Run-Prog Read-Crnds Break UnBreak ClrAddedBPs ClrAllBPs ShowBP 
S3 Continue Load LdSyms Compare Test-All Test Dump Show-Cmds Write-Cmd 
Virtual 



s Go 



EDF ield.dls 
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MicroD 8.6 (OS 16) of April 27. 1979 
at 6-Mar-80 12:10:51 

microd.run EDField.dib 



EDField.dib 261b instructions written 6-Mar-80 12:10:08 

Total of 261b instructions 

Checking for errors. . . 
Linking. . . 

Building allocation lists... 
Assigning locations... 

261b Instructions in rings involving ONPAGE or AT 
Reloading binaries. . . 
Checking assignment... 
Writing .MB file. . . 
Writing 1 isting. . . 

IM: 



Imag 


Real 


WO 


Wl 


W2 


Symbol 


EDField 


dib: 













470 


36005 


107140 


2 


GO START 


1 


660 


36320 


101136 


2 


(+1) 


2 


657 


34001 


123134 


16 


(+2) 


3 


656 


34323 


115132 


16 


(+3) 


4 


655 


36002 


135130 


12 


( + 4) 


5 


654 


36320 


103127 


12 


( + 5) 


6 


653 


36001 


133124 


6 


(+6) 


7 


652 


36323 


115123 


6 


( + 7) 


10 


651 


47 


7121 


2 


( + 10) 


11 


650 


32020 


101117 


12 


( + 11) 


12 


647 


30020 


101006 


14 


( + 12) 


13 


403 


31050 


165115 


16 


BIGLOOP 


14 


646 


33450 


25113 


2 


( + 1) 


15 


645 


50 


24200 





(+2) 


16 b 


401 


50 


25161 





PASSED-EDFIELD-TEST 


17 


400 


47 


5110 


2 


( + 1) 


20 


644 


32020 


101064 


6 


MAINLOOP 


21 


632 


34150 


25062 


2 


( + 1) 


22 


631 


50 


24061 





(+2) 


23 


430 


33050 


125163 


11 


(+3) 


24 


571 


50 


24007 





(+4) 


25 


402 


36150 


65160 


1 


(+5) 


26 


570 


22050 


125156 


5 


(+6) 


27 


667 


22000 


105154 





( + 7) 


30 


466 


50 


25354 


1 


( + 10) 


31 


467 


22150 


65165 


4 


( + 11) 


32 


472 


37150 


125163 





( + 12) 


33 


471 


22000 


123150 





( + 13) 


34 


464 


50 


25354 


1 


( + 14) 


35 


465 


22150 


65000 


5 


( + 15) 


36 


500 


37150 


65177 





( + 16) 


37 


477 


35150 


65175 


14 


( + 17) 


40 


4 76 


36050 


125172 





(+20) 


41 


4 75 


36150 


65171 


10 


(+21) 


42 


474 


22050 


125167 


4 


(+22) 


43 


4 73 


22000 


105145 





(+23) 


44 


462 


50 


25354 


1 


(+24) 


45 


463 


22150 


65005 


5 


(+25) 


46 


502 


37150 


125002 


11 


(+26) 


47 


501 


22000 


123054 





(+27) 


50 


426 


50 


25354 


1 


(+30) 


51 


427 


22150 


65175 


5 


(+31) 


52 


5 76 


37150 


65172 


11 


(+32) 


53 


575 


37150 


65171 


5 


(+33) 


54 


574 


36050 


125166 


11 


(+34) 


55 


573 


34150 


25164 


5 


(+35) 


56 


572 


50 


24051 





(+36) 


5 7 


£24 


35376 


101062 


10 


PATTERNALLONES 


60 


425 


34050 


125062 


10 


PATTERNRANDOM 


6\ 


431 


3615C 


65061 


"> 


EX1RACTFDESCR 



IPt- ield.dls 
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62 


630 


22050 


125057 


6 


( + D 


63 


627 


22000 


121044 





(+2) 


64 


422 


50 


25255 


2 


(+3) 


65 


423 


22150 


65006 


6 


( + 4) 


66 


603 


36050 


125005 


16 


( + 5) 


67 


602 


36217 


137002 


16 


(+6) 


70 


601 


36150 


65001 


16 


DECODEFDESCR 


71 


600 


22050 


125177 


5 


( + D 


72 


577 


22000 


131040 





(+2) 


73 


420 


50 


25255 


2 


(+3) 


74 


421 


22150 


65014 


6 


(+4) 


75 


606 


20050 


125013 


2 


(+5) 


76 


605 


20200 


137011 


2 


(+6) 


77 


604 


22000 


111014 





( + 7) 


100 


406 


50 


25255 


2 


( + 10) 


101 


407 


22150 


65104 


6 


( + 11) 


102 


642 


20050 


125102 


12 


( + 12) 


103 


641 


20200 


137100 


12 


( + 13) 


104 


640 


21050 


125076 


12 


( + 14) 


105 


637 


21350 


65075 


12 


( + 15) 


106 


636 


21150 


65073 


2 


( + 16) 


107 


635 


20050 


125071 


6 


( + 17) 


110 


634 


21401 


1066 


6 


(+20) 


111 


633 


50 


24331 





(+21) 


112 


455 


50 


25032 


1 


( + 22) 


113 


454 


50 


25111 


2 


ENDBITPASTEND 


114 


515 


32000 


103013 


5 


RFTEST 


115 


505 


23376 


101010 


5 


( + 1) 


116 


504 


20150 


65007 


11 


(+2) 


117 


503 


22050 


125034 





(+3) 


120 


416 


50 


25354 


1 


( + 4) 


121 


417 


22720 


41031 


6 


( + 5) 


122 


614 


22050 


125026 


12 


(+6) 


123 


613 


34150 


65025 


12 


( + 7) 


124 


612 


22050 


125023 


6 


( + 10) 


125 


611 


20150 


65020 


12 


( + 11) 


126 


610 


21150 


65016 


2 


( + 12) 


127 


607 


22050 


125141 





( + 13) 


130 


460 


50 


25255 


2 


( + 14) 


131 


461 


22150 


65030 


11 


( + 15) 


132 


514 


22250 


65027 


5 


( + 16) 


133 


513 


22050 


125024 


15 


( + 17) 


134 


512 


36150 


11023 


15 


( + 20) 


135 


511 


34154 


65021 


11 


(+21) 


136 


510 


24050 


125017 


1 


( + 22) 


137 


507 


35400 


3015 


1 


( + 23) 


140 


506 


50 


24114 





(+24) 


141 


446 


50 


25032 


1 


( + 25) 


142 


447 


23450 


25061 


15 


( + 26) 


143 


530 


50 


24135 





( + 27) 


144 b 


457 


50 


25032 


1 


RFBAD 


145 


456 


32000 


105040 


5 


WFATEST 


146 


520 


23376 


101037 


5 


( + 1) 


147 


517 


20150 


65034 


11 


(+2) 


150 


516 


22050 


125111 





(+3) 


151 


444 


50 


25354 


1 


(+4) 


152 


445 


22720 


101067 


5 


(+5) 


153 


533 


21401 


41065 


1 


(+6) 


154 


532 


21150 


65063 


11 


( + 7) 


155 


531 


23476 


101030 





( + 10) 


156 


414 


50 


25354 


1 


( + 11) 


157 


415 


22150 


65036 


6 


( + 12) 


160 


617 


22050 


125034 


12 


( + 13) 


161 


616 


34150 


65032 


12 


( + 14) 


152 


615 


22050 


125125 


4 


( + 15) 


163 


452 


50 


25255 


2 


( + 16) 


164 


453 


22150 


65056 


11 


( + 17) 


165 


527 


22250 


65055 


5 


( + 20) 


165 


525 


22050 


125053 


15 


(+21) 


167 


525 


36150 


11051 


15 


(+22) 


170 


524 


34151 


65047 


11 


(+23) 


171 


523 


24050 


125044 


1 


(+24) 


! 72 


522 


35^00 


5043 


1 


(+25) 


i 7 i 


521 


50 


24075 





(+26) 


\ ' - 


4 3t 


5C 


25134 





( + 271 


' ~ 3 


-1 ° "■ 


C245C 


25130 


15 


(-3C; 



EDField 


dls 
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176 


554 


50 


24121 





(+31) 


177 b 


451 


50 


25134 





WFABAD 


200 


450 


32000 


107074 


5 


WFBTEST 


201 


536 


23376 


101073 


5 


( + D 


202 


535 


20150 


65070 


11 


( + 2) 


203 


534 


22050 


125070 





( + 3) 


204 


434 


50 


25354 


1 


( + 4) 


205 


435 


22720 


101136 


5 


-( + 5) 


206 


557 


21401 


41134 


1 


(+6) 


207 


556 


21150 


65132 


11 


( + 7) 


210 


555 


23476 


101104 





( + 10) 


211 


442 


50 


25354 


1 


( + 11) 


212 


443 


22150 


65126 


5 


( + 12) 


213 


553 


22050 


125124 


11 


( + 13) 


214 


552 


34150 


65122 


11 


( + 14) 


215 


551 


22050 


125120 


15 


( + 15) 


216 


550 


22150 


65116 


11 


( + 16) 


217 


547 


22550 


125115 


15 


( + 17) 


220 


546 


22150 


65113 


11 


( + 20) 


221 


545 


36250 


65110 


11 


(+21) 


222 


544 


22350 


125107 


15 


(+22) 


223 


543 


36150 


11105 


15 


(+23) 


224 


542 


34353 


65102 


11 


(+24) 


225 


541 


24050 


125101 


1 


(+25) 


226 


540 


35400 


7077 


1 


( + 26) 


227 


537 


50 


24010 





(+27) 


230 


404 


50 


25120 





(+30) 


231 


405 


23450 


25106 


16 


(+31) 


232 


643 


50 


24100 





(+32) 


233 b 


441 


50 


25120 





WFBBAD 


234 


440 


50 


25111 


2 


( + 1) 


235 


626 


20000 


103053 


16 


LEFTCYCLE 


236 


625 


22150 


65043 


2 


CYCLELOOP 


237 


621 


21550 


25040 


16 


( + 1) 


240 


620 


50 


24224 





(+2) 


241 


413 


22150 


65050 


6 


(+3) 


242 


624 


23150 


125046 


6 


(+4) 


243 


623 


50 


24023 





( + 5) 


244 


411 


23050 


125020 


4 


(+6) 


245 


410 


21050 


125044 


16 


( + 7) 


246 


622 


50 


25052 


2 


( + 10) 


247 


412 


50 


25401 





CYCLEEND 


250 


566 


20000 


103152 


15 


LEFTSHIFT 


251 


565 


22150 


65142 


1 


SHIFTLOOP 


252 


561 


21550 


25141 


15 


( + 1) 


253 


560 


50 


24265 





( + 2) 


254 


433 


22150 


65151 


5 


( + 3) 


255 


564 


23150 


125147 


5 


(+4) 


256 


563 


21050 


125145 


15 


( + 5) 


257 


562 


50 


25153 


1 


(+6) 


260 


432 


50 


25401 





SHIFTEND 



Page 



Page 400: 261 locations used, 117 free 
RM: 



1 


1 


REVISION 


2 


24 


RUN-TIME 


3 




PASSCOUNT 


4 


2 


MAXPASS 


5 




SUBTEST 


6 




INNERLOOPCOUNTER 


10 





LOOPWITHIN 


11 





RANDFLAG 


12 




CURRENTPATTERN 


13 




CA 


14 




XA 


15 




CB 


16 




XB 


17 




FDESCR 


20 




STARTBIT 


21 




ENDBIT 


22 




LENGTH 


23 




SHIFTINDEX 


24 




SHIFTSIZE 


25 




SHIFTVALUL" 
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26 MASK 

27 SIMRESULT 
30 RESULT RLC@ 

Time: 8 seconds: error(s). 



warning(s). 11927 words free 



EDF i eld Log .mid as 
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: :EDF ieldLog. MIDAS : Logger for EDField program 
: : By : J . Kel Iman 



Feb. 22. 1980 



start L X AppendOutput EDField. report ; 

L X WriteMessage -***** START EDField Test 

L X WriteDT; 

L X WriteMessage ***************. . 

L X Skip .continue: 



breakpoint L X AppendOutput EDField. report; 

L A18 SkipNE RFBAD; 

L X Skip .rfbad; 

L A18 SkipNE WFABAD; 

L X Skip .wfabad; 

L A18 SkipNE WFBBAD; 

L X Skip .wfbbad; 

L A18 SkipNE PASSED-EDFIELD-TEST; 

L X Skip .passtest; 

notmybreak L X AppendOutput EDField. report; 

L X WriteMessage *** FAILed: Not at my breakpoint 

L X WriteMessage ' Parity = ; 

R A0 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CIA = ; 

R A18 Val ; 

L X WriteMessage; 

L X WriteMessage ~: 

L X WriteMessage ' CTASK = ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage «; 

L X WriteMessage ' APCTASK = ; 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage * APC = ; 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' TPC » ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput: 
L X Exit: 



rfbad L X WriteMessage *** FAILed: at my Breakpoint RF BAD 
bad L X WriteMessage ' PASSCOUNT = ; 

R B2 Val ; 

L X WriteMessage: 

L X WriteMessage ~: 

L X WriteMessage ' RESULT = 

R B17 Val : 

L X WriteMessage: 

L X WriteMessage ~: 

L X WriteMessage ' SIMRESULT = ; 

R B16 Val : 

L X WriteMessage; 

I. X WriteMessage -: 
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L X WriteMessage * FDESCR = : 

R B8 Val: 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage * STARTBIT = ; 

R B9 Val: 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' ENDBIT * ; 

R BIO Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CURRENTPATTERN = ; 

R B14 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' XB = ; 

R B15 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X Skip .continue; 

.wfabad L X WriteMessage *** FAILed: at my Breakpoint WFA BAD 
L X BackSkip .bad; 

.wfbbad L X WriteMessage *•* FAILed: at my Breakpoint WFB BAD - 
L X BackSkip .bad; 



passtest L X WriteMessage ~ PASSed EDField Test 

L X WriteDT; 

L X WriteMessage ; 

L X Skip .continue; 

continue L X WriteMessage ~; 

L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 10000000; 

L X Continue: 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint; 
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L Al<? Val 

L X Confirm 

L X Load EDFIELD: 

L BO Addr REVISION 

L Bl Addr RUN-TIME 

L B2 Addr PASSCOUNT 

L B3 Addr MAXPASS 

L B4 Addr SUBTEST 

L B5 Addr INNERLOOPCOUNTER 

L B8 Addr FDESCR 

L B9 Addr STARTBIT 

L BIO Addr ENDBIT 

L Bll Addr LENGTH 

L B14 Addr CURRENTPATTERN 

L B15 Addr XB 

L B16 Addr SIMRESULT 

L B17 Addr RESULT 

L C13 Addr RANDFLAG 

L C15 Addr LOOPWITHIN 

L X DisplayOn: 

L X TimeOut 10000 

L X SS GO 

L X Skip 1 

L X ShowError Single-step at GO hung 
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<DQDiag>Rev-l>EDSmanMem.mc Revision 1 Nov 15.1979 



* • * * i* * 






l***'**attK»a*:a**l 



i*aa*aaaa*aa*a«a*a***»*att«aa*i 



itt***llf>fl*ft«a*a***l> 
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EDSmallMem.mc : Small Memory Exerciser microcode 

Purpose : This test exhaustively exercises the control store as a 4K x 35 bit memory, 
except for locations occupied by the program or tne kernel; 
and the T registers, except for T[15] and T[17], 
Minimum Hardware : Standard a CPU boards. 
Approximate Run Time : 30 seconds. 
Written by : Tom Horsley, January 3. 1978 

note: since this test tests all of control store except Page 0. the main progran nas 

been left on Page 0. March 10. 197S 1:39 PM Bill Kennedy 
Modified by : Bill Kennedy. April 20. 1S78 

to re-initialize Control Store 
Modified by : Chuck Thacker. December 12. 1978 

to force CS reads and writes in RCSLoop to be on even locations. 
Modified by : Chuck Thacker, June 14.1979 

to avoid R0, Rll-17. CS pages 16 and 17. tasks 16 and 17. 
Modified by : T. Henniny. November 5. 1979 

to standardize title page and code format, add looping and additional patterns. 



•SubTest Description: 

* SubTest 0: The test has stopped at an unexpected place, something else is 

interfering with this test. 
" SubTest 1: Confirm that the value written (Pattern) into Control Store bits to 15 
is the one read out (Result). 

* SubTest 2: Confirm that the value written (Pattern) into Control Store bits 16 to 31 

is the one read out (Result). 

* SubTest 3: Confirm that the value written (Pattern) into Control Store bits 32 to 35 

is the one read out (Result). 

* SubTest 4: Before writing a t-register confirm that it contains its index. 

If it doesn't then possibly the wrong register has been accessed. 

Also, confirm that the value written (Pattern) into the T register is the one 

read out (Result) . 



a*«aa**xa«a»«««*a*«**«aa*a««**«a*a**a«»*****»**»**«a**«a*«*****»*******««*«*«**«a«**w«*i 

"Breakpoints : 

* PATTERNERROR: Result read did not match Pattern written. 

* BADT: Index read from the current T register was not correct in SubTest 4. 

* BAD-MEMADDR : MemAddr is beyond allowed values, legal ranges are: 

400 to 6777 (StartWord to EndWord) 
4CC to 6777 (StartWord to EndWord) 
400 to 6777 (StartWord to EndWord) 
to 15 (tasks 15, 17 disallowed for Timer and Kernel) 

Passed all tests, and all passes. 



SubTest 1 
SubTest 1 
SubTest 1 
SubTest 1 
PASSED-EDSMALLMEM-TEST 



* ShortLoop Logic Analyzer Sync Points at Control Store address: 

* PATTERNERROR: Control Store address 145 at MAIMLOOP. 

* BADT: Control Store address 145 at MAINLOOP. 



LDSmallMem.mc 21-Feb-SO 8:40:26 Page 



**«»*»***»* »***********»**>«••»■••«***•»** ****»**""««**»»*»'«**«'»'*» , »*» ********************** 
*Special Reg. Definition: 

* ShortLoop: At any breakpoint, the user has the choice of setting ShortLoop to a 1 to 

loop on the current test. During the short loop, the user can modify the address 
and data to the Cc.itrol Store at will by changing MemAddr and Pattern. For the 
T register test in subtest 4. the T register and the test pattern can also be 
changed at will . 

1. the current test will loop reoeateoly fcr trouble shooting 
C. no looping in current test 

* PatternChoice: 

Bit 15 - all zeros pattern, enable by 1. disable by : 

Bit 14 - all ones pattern, enable by 1. disable by 

Bit 13 - checker pattern, enable by 1. disable by C 

Bit 12 - random pattern, enable by 1, disable by 

Example: PatternChoice«l enables the all zeros pattern only 
PatternChoice«2 enables the all ones pattern only 
PatternChoice»4 enables the checker pattern only 
PatternChoice»10 enables the random pattern only 
PatternChoice»17 enables all four of the patterns 
PatternChoice»ll enables the random and all zeros patterns 

•Subroutine Description: 

* RelnitCS: zeros out Control Store and puts in correct parity. 
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,* + i*mm*********' 



r*#w*Mt)|t***i 



'INITIALIZATION: 



BUILTIN[INSERT. 24]: 

INSERT[D0LANG]; 

TITLE[Smal IMemoriesTester] •. 

MIDASINIT; 

SET[MainPage, C]: * set tag for Main Program page 

ONPAGE[MainPage]: 



Exhaustively exercises various small memories 



*»*«** M««* 



R-Registers: 



i •■«»** *** 



RV[PassCount.20]; 
RV[MaxPass. 21,10]; 
RV[SubTest,22]: 
RV[TestCounter,22] 

RV[CA.24] ; 
RV[XA,25]; 
RV[CurrentXA,28]: 
RV[01dXA.27] ; 



RV[CS0Test.30] 
RV[CSlTest,31] 
RV[CS2T»st.32] 



RV[StartWord,33. 400] 
RV[Endword,34. 5777]; 

RV[RepeatCounter,35]; 

RV[TmemTest.36]: 

RV[CS0.37]; 

RV[CS1,40]; 

RV[CS2.41]; 

RV[NewTask,42]; 
RV[Tmp,43]; 



•outer loop counter 

*number of times big loo? is to repeat before breakpointing 

• current location of test 

• inner loop counter 

♦used in random number generation, A*XA f CA 
•random number generated via A*XA * CA 
•value of XA to be used (usually XA. sometimes OldXA) 
•last valueof XA 

•number of test iterations 
•number of test iterations 
•number of test iterations 

• beginning of control store to be tested 
•end of control store to be tested 

•number of test repeats 
•number of test iterations 

• temporary register used in re- initial izing Control Store 

• temporary register used in re-initializing Control Store 

• temporary register used in re-initializing Control Store 

•used in task switching 

• temporary register 



SET[wordLoc , 441; "address of register 'MemAddr' 
RV[MemAddr. wordLoc]; *address of memory cell to be tested 
MC[wordAddress , wordLoc]; *address of register 'MemAddr' 
RV[Pattern, ADDfwordLoc. 1]]; *pattern to be stuffed into word 
RV[Result, AOD[wordLoc, 2]]; 'result of memory read 



RV[PatternChoice,47, 17]; 
RV[Cur rent Pat tern. 50. 1] : 
RvrPatternTrv,51.1]: 
RV[0nes. 52. 177777]; 
RV[Checkerl. 53, 125252]: 
RV[CheckerO. 54, 052525]; 
RV[Toggle.55,0]; 

RV[ShortLooo.56,0]: 

RV[Revision.57,l]; 
RV[Run-Time.6C .35] ; 

'•••• Task Entry Points: 



•enable all patterns at program start 

•initialize to all zeros pattern 
•initialize to all zeros pattern 
•define ones to be 177777 
•checker pattern register 
•checker pattern register 
•checker toggle register 

• 1 «> loop on current test, »> continue on next test 

•REVISION 1 

•Run-Time is 35b or 300 seconds 



SET[hignerTaskLoc, 40]; 
MC[higherTaskEntry, higherTaskloc]; 

SETfJowerTaskLoc. 50]; 
MC[1owerTaskEntry . lowerTaskloc ] ; 

SET[hignerTasklocl. 50]; 
MC[higher"askEntryl. higherTaskLccl]; 

SET[lowerTaskLocl. 70]; 
MC[lowerTaskEntry i . 1 owe rTask Loci ] : 

SET[testSwitch, 201: 
SET[MainPageBase.LSHIFT[MainPage. 10]] 



"entry point to higher task 

•entry point to higher task 

"entry point to task 

*entry point to task 

"entry point to higher task 

"entry point to higher task 

"entry point to task C 

"entry point to task C 

"location of main switch 
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**• MAIN routine: 

go: 
start: 

XA - AND8[C377. 123]C; 'Load 15 Bits (XA - 123) 

XA - (XA) OR (AND@[177-CC. 123]C): 

CA - AND8[0377. 33C311C: *Load 15 Bits (CA - 33031, 
CA <- (CA) OR (AND8[1774C:. 33G31]C;: 

CtEARMPANEl; 

TestCounter - OC; 

PassCount - OC; 

CSOTest - OC: 

CSlTest - OC; 

CS2Test - OC; 

TmemTest - OC; 

RepeatCounter ♦■ OC; 

t - 2OO00C; "set up CurrentXA so that it contains valid address 

t - (LSH[StartWord, 1]) OR (t); 

CurrentXA <- t; 

t ♦■ (1C); "Initial ize task registers to their task index 

MemAddr *• t: 
IndexT: t - (17C); 

LU *■ (MemAddr) - (t) - 1; 
GOTO[IndexTDone. ALU >» 0]; 

t - LSH[MemAddr. 14]; 
MewTask - t; 

NewTask «- (MewTask) OR (higherTaskEntryl) ; 

APCTASK&APC - (NewTask); 

RETURN; 

Tmp - wordAddrsss. AT[higherTaskLocl] ; "write value into t register 
"STKP - Tmp: 
t - STACK; 

TmD *■ lowerTaskEntryl ; "return to task 

APCTASK&APC - (Tmp); 

RETURN; 

, NOP. AT[lowerTaskLocl]; 

MemAddr ~ (MemAddr) - 1; "Increment FOR loop counter 
GOTO[IndexT] ; 

IndexTDone: 
nop ; 

bigLoop: t *■ (PatternTry) ANO (177760C); "what pattern to use? 

goto[WhatPattern ,alu»0]: "exhausted all four pattern types? 

PatternTry - 1C; "yes, select the zero pattern again 

Toggle ♦■ OC; "reset checker pattern toggle 

INCMPANEL: 

PassCount" t -( PassCount ;-l : "increment pass count 

1u - (MaxPass) - (t) ; 

goto[EndTsst . alu<C]; "finished all passes? 

nop ; 
WhatPattern: t - PatternChoice : "deternine what pattern to use 

t - (PatternTry) AND ( t ; ; 

gotc[NextPattern,alu s 3]: *ao we want to use this pattern? 
ThisPattern :." CurrentPattern *■ t. gcto[mainloop ] ; "yes. use tnis pattern 

NextPattern : PatternTry - LSH[PatternTry . 1] . gotoTbigLcop] ; "no, try the next pattern 

EndTest : 

CALL[ReInitCS] : * go reinitialize control store 
Passed-EDSmallMem-Test: BREAKPOINT. goto[go]; 
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* SUBTEST 

nainloop: 

SubTest *• CC. AT[145]; "nail down scope trigger point 

ShortLoop - ShortLoop. G0T0[decipherXA, R ODD]; "Shorttoop selected? 



TestCounte'r «- (TestCounter) + 1; 
GOTOC-+Z. NOCARRY]: 

PatternTry - LSH[PatternTry . 1] . gcto[oigLoop ] : 



'use next pattern 



t - (CurrentXA) : 
OldXA - t; 


t 


<- XA. TASK 




t 
t 
XA 


* (LSH[XA, 

- (LSH[XA, 

- (CA) - t. 
- t; 


2]) + t; 
13]) + t: 


t 


- (XA); 




Cu 


rrentXA - t 





"task so that Midas can mouse halt 
♦Random (4005*XA - CA mod 2**15) 



t - (CurrentPattern) AND (1C); 

goto[Tryl,a1u»0]; "want the zeros pattern? 

Pattern ♦• 0C, goto[decipherXA] ; "yes 

Tryl: t * (CurrentPattern) AND (2C); "no, try the ones pattern 

goto[Try2,alu«0] ; "want the ones pattern? 

t *■ Ones; "yes 

Pattern ♦• t. goto[decipherXA] ; 

Try2: t *• (CurrentPattern) AND (4C): "no, try the checker pattern 

goto[Try3,alu»0]; "want tne checker pattern? 



Toggle - Toggle, goto[CheckerQl ,R ODD]; 

t - Checker!; •1010101010101010 pattern 

Pattern - t: 

Toggle *■ (Toggle) - 1. goto[decipherXA]; 
CheckerOl: t - CheckerO; 

Pattern <- t ; 

Toggle *■ (Toggle) + 1. goto[decipherXA] ; 
Tryl: t - (CurrentPattern) AND (10C); 

goto[bigLoop,alu*0]; "want the 

t - (CurrentXA) : "yes 

Pattern *• t: 

t «• PassCount; 

Pattern «■ (Pattern) + ( t) ; 

decipherXA: SET[Switch0. TestSwitch]; 

DISPATCH[CurrentXA. 0, 3]: 

DISP[SwitchTabO]; 
SwitchTabO: 

GOTO[Case0], AT[Switch0, 0] 

GOTO[Casel], AT[Switch0. 1] 

G0T0[CaseZ], AT[SwitchO. 2] 

GOTO[Case3], AT[SwitchO. 3]: 

G0TO[Case4], AT[Switch0. 4]; 

GOTO[Case6], AT[SwitchC. 5] 

G0T0[Caseo], AT[SwitchO. 5] 

G0T0[Case7], AT[Switch0. 7] 



"yes 



"toggle checker pattern 
•010101010101C101 pattern 

"toggle checker pattern 
"no, try the random pattern 
■andom oattern? 



'pick memory to be tested 
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• SU87EST 1 
CaseO: 



Rangel 



Range?; 



SubTest - 1C; 

t - LDF[CurrentXA. 3. 14]; 

ShortLoop - ShortLoop. G0T0[.+2. R ODD] 

MemAddr - t; 

t - MemAddr; 

LU - (StartWord) - (t) - 1: 
GOTO[Rangel. ALU < 0]: 
GOTO[OutRange] ; 



LU - (EndWord) - (t): 
GOTO[Range2, ALU >• 0]: 
GOT0[0utRange] : 



LU - (Pattern) ; 
APCTASK&APC - (MemAddr); 
Wr1teCS0&2; 

t *■ OC; *read the word 

APCTASK&APC - (MemAddr); 

READCS; 

t - CSData: 

Result - t; 

CSOTest - (CSOTest) - 1; 
GOTO[Endswitch0]; 



* SUBTEST 2 
Casel: 

SubTest - 2C; 



Range3 : 



Range- 



t - LDF[CurrentXA, 3, 1*]: 

ShortLocp - ShortLoop. GOTO[.'*2. R ODD] 

MemAddr - t ; 

t - MemAddr; 

LU - (StartWord) - (t) - 1; 

G0TO[Range3, ALU < C]; 

GOTO[OutRange]; 



LU - (EndWord) - (t; ; 
G0T0[Range4, ALU >■ 0]; 
GOTO[OutRange] ; 



LU - (Pattern) : 
APCTASK&APC *■ (MemAddr); 
WriteCSl; 

t *- 1C; 

APCTASK&APC - (MemAddr); 

READCS; 

t * CSData; 

Result <- t; 

CSlTest - (CSlTest; - 1; 
GOTO[EnoswitchO] : 



* SUETEST 3 
Case2: 

SubTest - 3C; 



t - LDF[CurrentXA. 3. 1-]; 

ShortLoop - ShortLocp. GOTO[.-2. R 000] 

MemAddr - t; 

t - MemAodr; 

LU - (StartWord) - ( t ': - 1 : 

GOTO[Ranae5. ALU < C]: 



•CSC Memory 
•ShortLoop selected' 

•Check Range 



•write the pattern 



•CS1 Memory 
•ShortLoop selected: 

•Check Range 



•write the pattern 



•read the word 



•CS2 Memory 
•ShortLoop selected? 

•ChecK Range 
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GOTO[OutRange]: 

Range5 : 

LU - (EndWord) - (t); 
GOTO[Range6, ALU > s C]; 
GOTO[OutRange]: 

Rangec : 

t - (Pattern); *write the oattern 

LU * OC: *Thi$ shouldn't be necessary?':!! 1 

APCTASK&APC - (MemAddr); 
■ WriteCS0&2: 

t *• 3C; "read the word 

APCTASK&APC <- (MemAddr): 

READCS; 

t - CSData: 

Result - t: 

Result - LDF[ResuU. C. 4]; 

Pattern - LDF[Pattern, 14, 4]; "abreviate expected result 

CS2Test - (CS2Test) + 1; 
GOTO[EndswitchO] ; 

• SUBTEST 4 
Case3: 

Subtest - 4C; *t Memory 

t - LDF[CurrentXA, 3, 4]; 

ShortLoop - ShortLoop, GOTO[.-*2. R ODD]; "ShortLoop selected? 

MemAddr - t; 

MemAddr - (MemAddr) AND (17C); "use the LSB 4 bits for T(task) to be tested 

T - (MemAddr) and (16C); 'don't do tasks IS or 17 

Tmp *■ T ; 

lu - (Tmp) xor ( 16C) : 

goto[.+2. alu#0]; 

goto[QutRange] ; 

t - LSH[MenAddr, 14]; *enter higher task 

NewTask - t; 

NewTask - 'NewTask) OR ( higherTaskEntry ) : 

t - OC; 

APCTASK&APC - (NewTask) ; 

RETURN; 

Tmp - wordAddress. AT[higherTaskLoc] ; "check to ascertain correct t-register 

STKP - Tmp; 

Tmp - t; 

LU - (STACK&+1) - (t); 

G0T0[EndT. ALU » 0]: 

ShortLoop - ShortLoop. GOTO[BADT. R EVEN]; *ShortLocp for troubleshooting? 
goto[EndT]: 
8ADT: BREAKPOINT; 



EndT 



Case- 
Caseo 
Cased 



t - STACK&-1: *t - Pattern 

STACK - t: "Result - t 

t - Tmp; "restore task number in t 

Tmp - lowerTaskEntry ; "return to task 

APCTASK&APC - (Tmp); 

RETURN: 

TmemTest - (TmemTest; * 1, AT[1 cwerTaskLoc] ; 
GOTO[EndswitChO]; 

GOTO[OutRange] : "Repeat the last test. i.e.. hit the last memory location again 

GCTOfOutRange] : "Reoeat the last test. i.e.. hit the last memory location again 
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GOTO[OutRange]; "Repeat the last test. i.e.. hit the last memory location again 

Case/ : 

GOT0[0utRange] ; 'Repeat the last test. i.e.. hit the last memory location again 

EndswitchC: 

tests: TASK: "enable :.icuse halt 

t - Result; 

LU - (Pattern) - (t) ; 

GOTO[EndifO. ALU * 0]: 

ShortLoop - Shortloop. GOTO[PATTERNERROR . R EVEN]- *Shortlooc for trcuo leshoot ing' 
goto[EndifO]; 
PATTERNERROR: 

BREAKPOINT; 

EndifO: 

30T0[mainLoop]; 

OutRange: 

ShortLoop - ShortLoop. GOTO[.+2. R EVEN]; *ShortLoop for troubleshooting? 
Bad-MemAddr : 

breakpoint; 

goto[mainloop]: 

t - (OldXA); 

* CurrentXA *• t; 

* RepeatCounter - (ReoeatCounter) + 1; 
GOTO[decipherXA]: 
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SUBROUTINE: RelnitCS 



#!*****#.•** 



Puts zeros into tne Control Store from StartWord 
to EndWord and also puts in the correct parity. 



ONPAGE[MainPage] 
Relni tCS: 

CSC - ZERO 

CS1 - ZERO 

CS2 - ZERO 

t - StartWord: 

NewTask - t; 

t - CSO; 

Tmp «- t: 

t - CS1: 

Tmp - t - (Tmp) XOR (t) : 

t - (LDF[CS2.14.£]J XOR (t); 

Tmp - t «■ (LDE[Tmp.0.10]) XOR (t; 

Tmp - t - (LDF[Tmp.l0.4]) XOR (t) 

Tmp - t * (LDF[1mp.l4.2]) XOR (t) 

Tmp - t «■ (LDF[Tmp,16, 1]) XNOR (t) 

t *- (LDF[Tmp,17.1]): 

CS1 - (CS1) XOR (t); 



RCSLoop 



:o 'EndWcrd 



NewTask' ) 



* zero what's to be written into CS 
" zero what's to be written into CS 

* zero what's to be written into CS 

" Write control store from 'StartWcc" 

"WriteCS (write control store location 

"put CSO in the temp, reg . 

"get CS1 

*xor first two CS words 

*xor third CS word with the result 

-start halfing process to get parity 



•Do last part and complement it 

•put parity bit in the t-register 

•exclusive or parity bit into bit 31 of CS (15 of CS1) 



•force WriteCS to have JA . 7*1 



t - (CS2): 

LU - (CSC): 

APCTASKfcAPC «- (NewTask); 

WriteCS0&2; 

LU - (CS1). at[MainPageBase,3401; 

APCTASK&APC - (NewTask); 

WriteCSl; 

t - NewTask *■ (NewTask) + l. at[MainPageBase .350] ; 

•increment address 
LU - (EndWord) - (t) - 1; * see if done yet 

GOTO[RCSLoop. CARRY]: 
RETURN; 



Force WriteCSl 's JA. 7=0 



END: 



EDSmallMem 



(W) 



go: 
start: 



\/ 



Initialize random 
generator registers 



XAs 123 
CA«33031 
PatternChoice s i 7 
CurrentPattern a i 
ShortLoopsO 
MaxPass s 10 



v 



CLRM 



v 



Initialize test 
parameter registers 



IndexT: 
IndexTDone: 



bigioop: 



v 



Index T registers 
by using Notifies 



TestCountersO 
PassCount = 
CSOTest a 
CS1Test»0 
CS2TestsO 
TmemTest = 
RepeatCounter = 
CurrentXAs 21000 



TfTasM] s 1 
T[Task2] a 2 

TTTask16]« 16 
T[Task17] a 17 



V 



/T 



NextPattern: 



Exhausted all four \ yes 
pattern types? 



^ select zeros pattern 



select next pattern 



WhatPattern: 



airauern: v 

/ \ 

ne / Is current pattern \^ 

\ selected by user? / 



V 



reset toggle for checker pattern 



yes 



V 



mainloop 
page 02 



v 



INCM 



cisplay number of passes 



JL 



increment pass count 



V 



done with all passes? 



yes 



/ 



Reinitialize Control Store 



EndTest: 
Passed-EDSmallMem-Test: [JrEAKPOINt] 



CALL RelnitCS 
page 06 



Passed ail tests. 



END 



XEROX 

ED 



D(0) 
Diaqnostic 



MICROCODE SOURCE 

EDSmallMem. mc 



DOCUMENTATION FILE 

EDSmallMemOLsil 



DESIGNER 

Tom Henning 



REV 
1 



DATE 

11/02/79 



PAGE 

01 



mainloop: 



SubTest = 



SYNC is 145 



f ves / ShortLoop 
\ selected? 



ShortLoop s 1? 



±. 



TestCounter s TestCounter * 1 



finishec all tests? 



t> use next pattern 



bigLoop 
page 01 



CARRY = 1? 



./ 



save current random number 



OldXAsCurrentXA 



'sXA 



TASK 



generate random number Xa 



XA » T » (4005* XA + CA)mod2* * 16 
CurrentXAsXA 



Want the \ ves 



\ zeros patte 



m: 



put zeros in 
Pattern 



Try1: 



ntthe \ yt 

7 



wa 

ones pattern? 



put ones in 
Pattern 



Try2: 



Wantthe \ ves 



Wantthe \ ves 



ch 



ecuer pattern? / \ 10 10... pattern? 



put 1010.. 

Pattern 



\' 



Try3: 

ves / Wantthe 

\ random pattern? 



CheckerOI 



\' 



put 0101... 
Pattern 



v. toggle cnecker 
"*^ pattern 



Pattern s PassCount * CurrentXa 



decipherXA: 



bigloop \ 
page 01 / 



SwitchTabO: 



choose test to be cone 
based on CurrentXa 



J 



DISPATCH[CurrentXA.0.3] 



Bad-MemAddr: 
^RE AK PO I nTK 



■> CaseO page 03 Testes word o 

■> Casel page 04 Tastes word 

■>■ Case2 page 04 Testes word 2 

■» Case3 page 05 TestT Registers 



-> 



OutRange: 



Case4 
Case5 
Case6 
Case7 



\ 



ShortLoop 
selectee? 



ShortLoop = 1? 



XEROX 

ED 



D(0) 
Dioqnostic 



PROGRAM NAME 

EDSmailMem.mc 



DOCUMENTATION FILE 

EDSmallMem02.sil 



DESIGNER 

Tom Henning 



REV 
1 



DATE 

11/02/79 



02 



SubTest 1 Test for CSO (Control Store word 0) 



CaseO: 



SubTest a 1 



\' 



Slwtid? ) ^ ^ 9^ new Control Store address 



Rangel: 



yes. use old Control 
Store acdress 

L£ 



MemAddr* LDF[CurrentXA.3.14] 



Is MemAddr within \ no 
test range? / 



Range2: 



OutRange 
page 02 



yes Is MemAddr>s StartWord? 
Is MemAddK s Endword? 



Write Pattern into CS0&2 
addressed by MemAddr 



read CS addressed by MemAddr 
Result = CSData 



CSOTest a CSOTest * 1 



EndswitchO: 
tests: 



EndifO: 



increment numbr of CSO tests 



TASK 



v 



allow mouse halt 



is Result read 
the same as 

Pattern written? 



yes 



ShortLoop \ 
selected? / 



no 



PATTERNERROR: [""BREAKPOINT! 



S- 



do anothenest 



mainLoop 
page 02 



XEROX 

ED 



D(0) 
Diaonostic 



PROGRAM NAME 

EDSmallMem.mc 



DOCUMENTATION FILE 

EDSmallMem03.sil 



DESIGNER 

Tom Henning 



REV 
1 



DATE =AGE 

11/02/791 03 



SubTest 2 Test for C51 (Control Store word 1 



Casel: 



Range3: 



Range4: 



SubT«st« 2 



ShojLoop \no_^ getConuol store address 



yes 

K — 



Mem Add rs i_DF[CurrentXA.3.i4] 



Is MemAfldr within \ no 
test range? / 



OutRange 
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yes Is MemAddr>sStartWord? 
Is MemAddK s EndWord? 



Write Pattern into CS1 
addressed by MemAddr 



^' 



read CS addressed by MemAddr 
Result sCSOata 



CS 1 Test »CS1 Test + 1 



EndswitchO \ 
page 03 / 



go compare Result read against Pattern written 



SubTest 3 Test for CS2 (Control Store word 2) 



Case2: 



Range5: 



Range6: 



Subtest » 3 



ShortLoop \ no 
selected? / 



$• get Control Store add ress 



yes 
K — 



MemAoar: L0F[CurrentXA.3.14j 



Is MemAddr within \ 



test range? 



OutRange 
page 02 



yes Is MemAddr> = StartWord? 
Is MemAddr<s EndWord? 



Write Pattern into CS0&2 
addressed by MemAddr 



read CS addressed by MemAddr 
Result sL3F[CSData.0.4] 



CS2Test»CS2Test * 1 



EndswitchO \ 
page 03 / 



go compare Result read against Pattern written 



XEROX 



tu 



D(0) 
Diagnostic 



PROGRAM NAME 

EDSmallMem.mc 



DOCUMENTATION FILE 

EDSmallMem04.sii 



DESIGNER 

Tom Henning 



REV 
1 



DATE 

1 1/02/79 



=>AGE 

04 



SubTest 4 Test for T Memory 



Case3: 



SubT«Sts4 



» 1 «, L ." P r^* ...t..k ....,...« 



/ 

\ 



yes 

N — 



MemAddr a lDF[CurrentXA.2.4j 



IS it Task 16 or 17? 



OutRange 
page 02 



prepare to enter higher task 



\' 



NewTask «lSH[MemAddr. 14] 

NewTaSk s NewTask OR higherTaskEntry 

TsO 



notify higher task 



\ 



APCTASK&APC * NewTask 
Return 



Read Tat higher task 



EndT: 



IS incex in T correct? > 
I 



yes 



f 



yes _/ ShortLoop 
selected? 



\ 



BADT: fBREAK POINT] 



write Pattern into T 



Pattern 



Read T 



Result = T 



re-write index into T 



T r tasK lumoer 



notify task 



TmemTest s TmemTest • 1 



EndswitchO \ 
page 03 / 



go comoare Result <-ead against Pattern written 



XEROX 

ED 



D(0) 
Diaanostic 



PROGRAM NAME 

EDSmallMem.mc 



DOCUMENTATION FILE 

EDSmallMem05.sil 



DESIGNER 

Tom Henning 



*EV 



DATE PAGE 

11/02/79 05 



Subroutine 



RelnitCS 



^ 



Subroutine to zero out Control Store 
and to remove any parity errors. 



V 



CSOaO 
CS1 tO 
CS2*0 



±. 



NtwTask« Start Word 



JL 



Obtain the parity bit of the CS word 



±. 



Put the parity bit into CS1 bit 15 



RCSLoop: 



TmpsTsCSO XORCS1 
T*LDF[CS2.14,4] XOR T 
Tmp = TsLDF[Tmp.0.10] XOR T 
TmpaT»LDF[Tmp.10.4] XOR T 
TmpsT=LDF[Tmp,14.2] XOR T 
7mpsTsLDF[Tmp.16.1] XNOR T 
T»L0F[Tmp, 17,1] 



CS"! sCSl XORT 



Write CSO and CS2 into Control Store 
addressed byNewTask 



V 



Write CS1 into Control Store 
addressed byNewTask 



V 



NewTask * NewTask ♦ 1 



:L 



-^22 — ( is NewTask<sEndWord? 



V 



RETURN 



XEROX 

ED 



D(0) 
Diaanostic 



PROGRAM NAME 

EDSmallMem.mc 



DOCUMENTATION FILE 

EDSmallMemOS.sil 



DESIGNER 

Tom Henning 



REV 
1 



DATE 

11/02/79 



PAGE 

06 



parity 

CYCLECONTRGL 

PCXREG 

PCFREG 

DBREG 

SBREG 

MNBR 
*SSTKP 

STKP 
*ALURESULT 
*SALUF 

T 20 

AATOVA 

TPC 20 

CALLER 

PAGE 

A PC 

APCTASK 

CIA 

CTASK 





4 
4 

17 






7900 



7777 

ILCS+7422 

9 

7011 

16 

GO+1 





REVISION 
RUN- TIME 
PASSCOUNT 
MAXPASS 
SUBTEST 



TESTCOUNTER 
CURRENTPATTER 



OS TEST 
CS1TEST 

pCOTCPT 

TMEMTEST 



1 

36 



10 




12; 



COMM-ER0 
COMM-ER1 
COMM-ER2 
BOOT-ERR 
*BOOTREA30N 
MEMSYNOROME 



PATTERN 

RESULT 

MEMADOR 

STARTWORO 
EN DWORD 

PATTERNCHOICE 
SHORTLOOP 



y 






d0 





400 



67 



L; 



EGSnial IMem 



Time: 08,79 



Step at 9: GO, BP at 9: GO + 1 



E x i t B o o t R u n -Prog R e a d - C fn d s B r e a k U n B r e a k CI r A d d e d B P s C 1 r A 11 5 P j S h o w B P s G o 

S3 Continue Load LdSyms Compare Test-All Test Dump Show-Cmds Wr i te-Cmds 
Virtual 



EDSmallMem.dls 21-Feo-80 5:40:26 Pegs 



MicroD 3.5 (OS 15) of April 27. 1979 
at 5-03C-79 10:50:58 

microd.run EDSmallMem 



EDSmallMem.DIB 255b instructions written 5-Dec-79 10:50:05 

Total of 355b instructions 

Checking for errors... 
Linking .. . 

Building allocation lists... 
Assigning locations. . . 

355b instructions in rings involving ONPAGE or AT 



Reloadin 


ig binaries . . 








Checking 


i assig 


nment . 








Writing 


.MB fi 


1e. . . 








Writing 


1 istin 


g... 








IM: 












Imag 


Real 


WO 


Wl 


W2 


Symbol 


EDSmallMem.DIB 













11 


22005 


107050 


7 


GO START 


1 


330 


22320 


101057 


7 


( + D 


2 


327 


22001 


123055 


3 


(+2) 


3 


326 


22323 


115053 


3 


(*3) 


4 


225 


47 


7050 


3 


(+4) 


5 


324 


20020 


101045 


17 


(*5) 


6 


323 


20020 


101045 


3 


(+6) 


7 


322 


24C20 


101042 


3 


( + 7) 


10 


321 


24020 


101040 


7 


(+10) 


11 


320 


24020 


101037 


13 


( + 11) 


12 


317 


26020 


101035 


13 


( + 12) 


13 


315 


26C20 


101033 


7 


( + 13) 


U 


315 


22 


41C31 


3 


( + 1 4 ) 


15 


314 


24374 


43027 


17 


( + 15) 


16 


313 


22050 


125024 


13 


(-15) 


17 


212 





43C22 


3 


(-17) 


20 


311 


12050 


125020 


3 


(*20) 


21 


310 





77013 


3 


INDEXT 


22 


305 


13550 


25010 


3 


( + 1) 


23 


304 


50 


24230 





(*2) 


24 


15 


12174 


71005 


3 


(♦3) 


25 


303 


10050 


125004 


13 


{*&) 


26 


302 


10303 


101002 


13 


(+5) 


27 


301 


101"47 


21000 


13 


(+6) 


30 


300 


50 


25401 





( T ?) 


31 8 


50 


10002 


111154 


17 


( + 10) 


32 


356 


10150 


3153 


17 


( + 11) 


33 


365 


40150 


65150 


17 


( + 12) 


34 


364 


10003 


121147 


17 


( + 13) 


35 


363 


10147 


21144 


17 


(-14) 


35 


362 


50 


25401 





( + 15) 


37 3 


70- 


50 


25017 


3 


(-16) 


40 


307 


13050 


125014 


3 


( + 17) 


41 


206 


50 


25021 


3 


(+20) 


42 


14 


50 


25064 


1 


INDEXTDONE 


43 


132 


14217 


41110 


5 


SIGLOOP 


1 r 


144 


50 


24101 


1 


(-1) 


45 


141 


14000 


103042 


5 


(*2) 


46 


121 


15020 


101162 


4 


(-3) 


47 


71 


47 


5147 





(+4) 


50 


53 


21050 


165123 


n 


(*5) 


S 1 


51 


21450 


25102 


4 


(-6) 


52 


41 


50 


24214 





(-7) 


33 


5 


50 


25100 


1 


(-10) 


54 


140 


12150 


65106 


15 


WHATPATTERN 


55 


143 


14250 


65104 


*5 


(*1) 


56 


142 


50 


24150 





( + 2) 


5 7 


55 


14C50 


125113 


1 


THISPATTERN 


50 


54 


i A 4 1 ' 


103054 


5 


NEXTPATTERN 


51 


7 


50 


25342 


3 


ENDTEST 



EDSnallMem. dl s 21-Feb-30 3:^0:25 Fage 



52 


& 1C 


50 


25022 





PASSED-EDSMALLMEM- 


■TEST 


53 


9 145 


20020 


101031 


12 


MA IN LOOP 




5- 


214 


16150 


124477 


10 


( + n 




55 


35 


2105C 


125C27 


16 


(-2) 




56 


213 


50 


240 77 


1 


(*3) 




57 


137 


14174 


103054 


5 


(-4) 




70 


136 


2215C 


55024 


12 


(-5) 




71 


212 


22050 


125071 


15 


(-6) 




72 


134 


22150 


65223 


6 


("7) 




73 


211 


23174 


45400 


4 


(-1C) 




74 


135 


23174 


57134 


5 


(-11) 




75 


155 


23150 


65132 


1 


(-12) 




75 


155 


22050 


125130 


5 


(-13) 




77 


154 


22150 


65126 


5 


( + 14) 




100 


153 


22050 


125124 


11 


(-15) 




101 


152 


14200 


43123 


1 


(-15) 




102 


151 


50 


24C70 





(M7) 




103 


35 


12020 


101076 


4 


(+20) 




104 


34 


14200 


45120 


1 


TRY1 




105 


15C 


50 


24054 


c 


( + 1) 




106 


33 


14150 


65161 


12 


(+2) 




107 


270 


12050 


125077 


4 


(♦3) 




110 


32 


14200 


51116 


1 


TRY2 




111 


147 


50 


24061 





(-1) 




112 


31 


16150 


124436 


4 


(+2) 




113 


16 


14150 


65165 


16 


( + 3) 




114 


272 


12050 


125163 


6 


(+4) 




115 


271 


17050 


125077 


4 


(+5) 




116 


17 


15150 


65170 


2 


CHECKERG1 




117 


274 


12050 


125166 


6 


(*1) 




120 


273 


17050 


125077 


4 


( + 2) 




121 


30 


14200 


61115 


1 


TRY3 




122 


146 


50 


24065 


1 


( + D 




123 


133 


22150 


65176 


12 


( + 2) 




124 


277 


12050 


125174 


5 


(-3) 




125 


276 


20150 


65173 


2 


(+4) 




126 


275 


13150 


125077 


4 


(-5) 




127 


37 


22172 


15156 


12 


OECIPHERXA 




130 


257 


50 


25641 


C 


(*D 




131 


9 20 


5C 


25155 


2 


SWITCHTABO 




132 


9 21 


50 


25147 


1 


( + 1) 




133 


9 22 


50 


25160 


1 


(*2) 




134 


6 23 


50 


25010 




C 


(-3) 




135 


9 24 


50 


25C13 


2 


(*4) 




136 


9 25 


50 


25C15 


2 


(-5) 




137 


9 26 


50 


25016 


2 


(+5) 




140 


9 27 


50 


25020 


2 


( + 7) 




141 


255 


2C00C 


103153 


12 


CASEO 




142 


255 


22167 


71150 


12 


(-1) 




143 


254 


16150 


124507 


10 


(*2) 




144 


42 


12050 


125106 





(*3) 




145 


43 


12150 


65147 


2 


(+4) 




146 


253 


25550 


25145 


15 


(*5j 




147 


262 


50 


24325 





(-6) 




150 


52 


50 


25034 


2 


( + 7) 




151 


53 


27450 


25143 


2 


RANGE1 




152 


251 


50 


24251 


1 


(-1) 




153 


131 


50 


25034 


2 


(*2) 




154 


130 


12150 


25141 


6 


RANGE2 




1 ; s 


26C 


12147 


21135 


2 


(-1) 




156 


257 


47 


31534 


2 


( + 2) 




157 


255 


20 


41133 


2 


( + 3) 




15C 


255 


12147 


21130 


2 


( + 4) 




i z i 


254 


47 


J 5 5 •: / 


2 


(-5) 




152 


253 


5415C 


55125 


15 






153 


252 


12050 


125122 


12 


(-7) 




154 


251 


25050 


125121 


2 


(-10) 




155 


250 


50 


25143 





(-11) 




155 


153 


200C0 


105144 


11 


CASE1 




157 


152 


22157 


71142 


11 


( + 1) 




173 


151 


16150 


124457 


11 


(*2) 




171 


125 


1205C 


125C56 


1 


i * 2 '■ 




172 


127 


12150 


55141 


1 


(*4J 




173 


16C 


25550 


25137 


15 


(-5) 




174 


157 


50 


24315 





(*5» 




175 


45 


50 


25034 


2 


\- ? ) 
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175 


47 


27450 


2505C 


2 


RANGE3 




177 


230 


50 


24251 


1 


( + U 




2CC 


125 


50 


25034 


2 


(-2) 




201 


124 


12150 


25C57 


5 


RANGE 4 




202 


227 


12147 


21054 


2 


( + 1) 




203 


226 


47 


33452 


2 


( + 2) 




204 


225 





43051 


2 


(+3) 




205 ' 


224 


12147 


21046 


2 


( + -) 




2oe 


223 


47 


35445 


2 


(-5) 




207 


222 


54150 


65042 


16 


(+6) 




210 


221 


12050 


125040 


12 


(+7) 




211 


220 


25050 


125036 


5 


( + 10) 




212 


217 


50 


25143 





(-11) 




213 


170 


20000 


107157 


11 


CASE2 




214 


• 167 


22167 


71155 


11 


( + 1) 




215 


166 


15150 


124446 


11 


(-2) 




216 


122 


12050 


125047 


1 


(+3) 




217 


123 


12150 


65153 


1 


(■**) 




220 


165 


25550 


25151 


15 


(+5) 




221 


154 


50 


24310 





(+6) 




222 


44 


50 


25034 


2 


( + 7) 




223 


45 


27450 


25113 


2 


RANGES 




224 


245 


50 


24375 





( + D 




225 


77 


50 


25034 


2 


(-2) 




225 


76 


12150 


65110 


6 


RANGE6 




227 


244 


20 


1107 


2 


( + D 




230 


243 


12147 


21105 


2 


( + 2) 




231 


242 


47 


31502 


2 


(+3) 




232 


241 





47101 


2 


( + 4) 




233 


240 


12147 


21076 


2 


(+5) 




234 


237 


47 


35475 


2 


(+6) 




235 


236 


54150 


65072 


16 


( + 7) 




236 


235 


12050 


12507C 


12 


( + 10) 




237 


234 


12162 


133066 


12 


( + 11) 




240 


233 


12163 


123065 


6 


(-12) 




241 


232 


25050 


125063 


12 


( + 13) 




242 


231 


50 


25143 





(-14) 




243 


204 


20000 


111007 


12 


CASE3 




244 


203 


22163 


41005 


12 


( + D 




245 


202 


16150 


124557 


10 


(*2) 




246 


72 


12050 


125165 





( + 3) 




247 


73 


12200 


137002 


2 


(+4) 




250 


201 


12200 


75000 


2 


( + 5) 




251 


200 


10050 


125177 


15 


(-8) 




252 


177 


10400 


35175 


15 


( + 7) 




253 


176 


50 


24171 





( + 10) 




254 


74 


50 


25034 


2 


( + H) 




255 


75 


12174 


71172 


1 


( + 12) 




256 


175 


10050 


125170 


11 


( + 13) 




257 


174 


10302 


101166 


11 


( + 14) 




260 


173 


20 


41165 


1 


( + 15) 




251 


172 


10147 


21163 


11 


( + 16) 




262 


171 


50 


254C1 





( + 17) 




263 


9 40 


10002 


111176 


17 


( + 20) 




264 


277 


10150 


3174 


17 


( + 21) 




265 


376 


10050 


125173 


17 


(+22) 




266 


375 


43450 


25170 


17 


(-23) 




257 


374 


50 


24004 





(+24) 




270 


•j 


16150 


124412 


10 


(-25) 




271 


5 


50 


25005 





( + 25) 




272 t 


:; 4 


50 


250C5 





BADT 




273 


2 


42150 


55157 


17 


ENDT- 




274 


373 


40050 


125154 


17 


(*1) 




275 


372 


10150 


55153 


17 


(+2) 




275 


371 


100C2 


121161 


i 7 


(-3) 




277 


370 


10147 


21155 


17 


(.4) 




300 


367 


50 


254C1 





(+5) 




201 


3 50 


27050 


125114 


12 


(+6) 




302 


246 


50 


25143 





( + 7) 




203 


205 


50 


25034 


2 


CASE4 




204 


206 


50 


25034 


2 


CASES 




305 


207 


50 


25034 


2 


CASE6 




205 


21C 


50 


2503* 


2 


CASE7 




iv 


51 


50 


25316 


2 


EMDSWITCHC 


TESTS 


210 


247 


12150 


55400 


10' 


( + D 




311 


52 


13-50 


25033 


5 


1*1) 





EDSma'MMem.dls 



21-Feb-80 



-:-0:25 



Pag; 



312 


215 


50 


24130 





(+3) 


313 


55 


15150 


124537 


10 


(+*) 


314 


57 


!,1 


25131 





(*5) 


315 o 


56 


50 


25131 


c 


PATTERNERROR 


316 


54 


50 


25112 


1 


ENDIFO 


317 


215 


15150 


124557 


10 


OUTRANGE 


320 b 


57 


50 


25154 





BAD-MEMADDR 


321 


56 


50 


25112 


1 


( + D 


322 


361 


26176 


101140 


17 


REINITCS 


323 


360 


10176 


101137 


3 


(-1) 


324 


357 


10175 


101135 


7 


(*2) 


325 


356 ' 


2415C 


65132 


17 


(+3) 


326 


355 


10050 


125130 


13 


(*4) 


327 


354 


26150 


55127 


17 


(+5) 


330 


353 


1005C 


125125 


17 


(+6) 


331 


352 


10150 


55122 


t 


( + 7) 


332 


351 


10450 


165115 


17 


(-10) 


333 


347 


10463 


63115 


7 


( + 11) 


334 


346 


10465 


157112 


17 


( + 12) 


335 


345 


10463 


153110 


17 


( + 13) 


336 


344 


10461 


171106 


17 


( + 14) 


337 


343 


10760 


175105 


17 


( + 15) 


340 


342 


10160 


77103 


17 


( + 16) 


341 


341 


10450 


125026 





( + 17) 


342 


13 


10150 


55077 


7 


RCSLOOP 


343 


337 


i.6150 


25074 


17 


( + 1) 


344 


336 


10147 


21072 


13 


(+2) 


345 


335 


47 


31500 


3 


(+3) 


346 


8 340 


10150 


25071 


3 


(+4) 


347 


334 


10147 


21066 


13 


(+5) 


35C 


333 


47 


33520 


3 


(+6) 


351 


9 350 


11050 


165064 


13 


(+7) 


352 


332 


27550 


25063 


3 


( + 10) 


353 


331 


50 


24026 





( + 11) 


354 


12 


50 


25401 





( + 12) 


p age 


0: 355 


locations used. 


22 free 


RM: 












20 




PASSCOUNT 






21 


10 


MAXPASS 






22 




SUBTEST 






23 




TESTC 


OUNTER 






24 




CA 








25 




XA 








25 




CURREMTXA 






27 




OLOXA 








30 




CSOTEST 






31 




CS1TEST 






32 




CS2TEST 






33 


400 


STARTWORD 






34 


6777 


ENDWORD 






35 




REPEATCOUNTER 




36 




TMEMTEST 






37 




CSO 








40 




CS1 








41 




CS2 








42 




NEWTASK 






43 




TMP 








J4 




MEMAODR 






4 o 




PATTERN 






46 




RESULT 






47 


17 


PATTE 


RNCHOIC 


E 




5C 


1 


CURRENTPATTE 


RN 




c 1 


1 


PATTERNTRY 






52 


177777 


ONES 








53 


125252 


CHECKER 1 






54 


52525 


CHECK 


ERO 






55 


r\ 


TOGGL 


c 






55 





SHORT 


LOOP 






c 7 


1 


REVIS 


ION 






5C 


35 


RUN- TIME 






51 




RLC3 
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1 seconds: C e 


rror( s : 




w a r m n g ( s '■ 
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words free 
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::; EDSmallMemLog .MIDAS : Logger for EDSmallMem program 

:;; Sy : T. Henning Nov. 20 1979 

.start L X ADpendOutput EDSmallMem. report ; 

L X WriteMessage -**«**•**»* START EDSmallMem Test : ; 

L X WMteDT; 

L X WriteMessage *»**»«»**«*»»*».. . 

L X Skip .continue: 

breakpoint L X AppendOutput EDSmallMem. report : 

I A18 SkipNE 8ADT ; 

L X Skip .badt; 

L A18 SkipNE PATTERNERROR ; 

L X Skip .patternerrop; 

L A18 SkipNE PASSED-EDSMALLMEM-TEST; 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDSmallMem. report : 

L X WriteMessage ••* FAILed: Not at my breakpoint -: 

L X WriteMessage ' Parity « ; 

R AO Val; 

L X WriteMessage: 

L X WriteMessage -; 

L X WriteMessage ' CIA * : 

R A18 Val ; 

L X WriteMessage; 

I X WriteMessage ~; 

L X WriteMessage ' CTASK « ■ ; 

R A19 Val ; 

I X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage " APCTASK = ; 

R A17 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' APC » 

R A16 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' TPC = ; 

R A13 Val ; 

L X WriteMessage: 

L X WriteMessage -; 

L X CloseOutput: 
L X Exit: 

oadt L X WriteMessage *** FAILed: at rny Breakpoint -; 

L X WriteMessage * T register index miscomparea -; 

bad L X WriteMessage ' SUBTEST » 

R B4 Val ; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' MEMADDP. s : 
' P. Cll Val : 
L X WriteMessage; 
L X WriteMessage -: 

L X WriteMessage ' PASSCOUNT * 

P 82 Val ; 

L x WriteMessage; 

L x WriteMessage ~; 

L X Skip .continue: 
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pattemerror L x WriteMessage ¥ * ¥ FAILsd: at ny Breakpoint -; 

L X WriteMessage * RESULT read did not match PATTERN written 

L X BackSkip .bad; 



passtsst L x WriteMessage 

L X WriteDT; 

L x WriteMessage 

L X Skip .continue: 



PASSed EDSmalU'en Test 



continue L X WriteMessage -; 

L X CloseOutput: 

I X DisplayOn; 

L X Confirm: 

L X TimeOut IQCCOCCC; 

L X Continue. 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.: 

L X 8ackSkip . notmybreak; 

L X OisplayOff; 

L X BackSkip breakpoint; 
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L A19 Val 
L X Confirm 
L X Load E0SmallM3m: ' 

L BO Addr REVISION 

L Bl Addr RUN-TIME 

L B2 Addr PASSCOUNT 

L B3 Addr MAXPASS 

L 84 Addr SUBTEST; 

L 8!) Addr XA; 

L BIO Addr TESTCOUNTER; 

I Bll Addr CURRENTPATTERN: 

L B16 Addr CSOTEST; 

L B17 Addr CS1TEST 

L Bi8 Addr CS2TEST 

L B19 Addr TMEMTEST 

L C9 Addr PATTERN 

L CIO Addr RESULT 

L Cll Addr MEMADDR 

L C13 Addr STARTWORD 

L C14 Addr ENDWORO 

L C16 Addr PATTERNCHOICE; 

L C17 Addr SHORTLOOP; 

L X DisplayOn; 

L X TimeOut 10000 

L X SS GO 

L X Skip 1 

L X ShowError Single-step stuck at GO 
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•** ****•**»* Revision 1 ************ 

****** *****•*******••**#***********•*•*•******»********************•**************************** 

*** EDTask.mc : The Task Switching and Register Addressing Test Program 
*** Purpose : To test task mechanism and register addressing modes. 
*** Hardware Configuration : Standard 4 CPU boards 
*** Written by : Tom Horsley. Dec. 12, 1977 
*** Modified by : Bill Kennedy, Feb. 23, 1978 

Added control store parity. 

Took code off page 0. 
*** Modified by : Bill Kennedy, Apr. 6, 1978 

Stayed from a KERNEL register and added meaningful tags to Breakpoints. 
••* Modified by : Chuck Thacker, Jan. 25, 1979 

Changed for 86 configuration. 
*«* Modified by : Chuck Thacker, June 16, 1979 

Changed to avoid stack overflow. 
*** Modified by : Camellia Chan, Mar. 4, 1980 

Standardize title page, code format, labels and looping. 

••*•** ******************************************************************************************* 



****** ****************************************************************************************** 

•SubTest Description: 

* SubTest 1: In the READ test, confirm that the contents (Result) of the register read 

(TargetRegister) match those expected (TargetValue) . 

In this test, the absolute address of the register to be tested is calculated using 
RMOD, RSEL, TASK, STKSHFT, and REGSHIFT from XA. Then control store instruction 760 
is stuffed with an appropriate read instruction. Finally a random value from XB is 
written into the absolute register location via the stack, a switch is made to the 
relevant task and the instruction at location 760 is executed. 

* SubTest 2: In the StackCompare test, confirm that the expected stack pointer (ExpectedStkp) 

matches the value of the STKP found immediately after the read or write instruction 
(SaveStkp). 

* SubTest 3: In the WRITE test, confirm that the contents (t) of the register written 

(TargetRegister) match those expected (TargetValue). 

The write test is similar to the read test except that location 762 is stuffed and 
the test is not performed on some of the special hardware registers. 

* Note: Registers outside the range R46 to R360 are not read or written in any test. 

************************************************************************************************ 

♦Breakpoints : 

* ReadFail : the contents (Result) of the register read (TargetRegister) do not match those 

expected (TargetValue). 

* StackFail: the content (ExpectedStkp) does not match the value of the STKP found immediatley 

after the read or write instruction (SaveStkp). 

* WriteFail: the contents (t) of the register written (TargetRegister) do not match those 

expected (TargetValue). 

* Passed-EDTask-Test: Passed all tests, and all passes. 

a:*************************************************************************************** 

* ShortLoop Logic Analyzer Sync Points at Control Store address: 

* ReadFail: Control Store address 770 at SubTestl. 

* StackFail: Control Store address 1546 at StackCompare. 

* WriteFail: Control Store address 772 at SubTest3. 
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•Subroutine Description: 

* FirstSixBits : deciphers the first six bits of the absolute R-register from Target Task. 

* LastTwoBits: inserts the last two bits of the absolute R-register from t. 

* Newlnstx: Newlnst is now done when control is at 2001b+4*n, n=0-377b. 

* PrimeTarget : prime the target register with a value. 

* ReadTest: executes the read test. 

* SetUpRead: create environment for read test. 

* StackCompare : make sure the stack pointer is correct. 

* WriteTest: sets up and executes the write test. 

•Special Reg. Definition: 

* XA: The arguments of the test. are built up from the random 16-bit word (XA) as follows: 

RMOD = XA[0] 

RSEL ■ XA[l-6] 

TASK » * XA[7-12] 

PCF - XA[13-15] 

DB ■ XA[12-17] 

SB ■ XA[12-17] 

STKSHFT * XA[7] 

REGSH1FT * XA[10] 

STKP = XA[10-17] 

Rd/Wr = XA[13] 

XA is used to choose a task and a register addressing mode (RMOD and RSEL). 

It is also used to decide whether to test reading or writing the register and to 

provide starting values for such registers as DB , SB, PCF and STKP. 

* Inner' nopCounter : 16 bits inner loop counter. 

* Note that the random number generator has been constructed so that it produces each 
number in the range [0, 64K) once and only once before repeating any number. Thus it 
is guaranteed to exhaust all possible combinations of the fields derived from it each 
time the inner loop is exhausted. 

* PassCount: Outer loop pass counter, 

incremented each time when InnerloopCounter reached the limit. 

* MaxPass: number of times outer loop is to repeat before breakpoint ing . 

* NewRand: 1 = change the pseudorandom number. 

= keep the current pseudorandom number. 

* ShortLoop: At any breakpoint the user has the option of changing the value of ShortLoop 

to 1, which will cause the current subtest to loop endlessly. If ShortLoop is a zero 
then the program will proceed to the next subtest. 



•*•>•• 



***»*****»**HI«******»**»**»»******»************»*****«*******«**************************** 
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tm********************************************************************************************** 



•INITIALIZATION: 

INSERT[D0LANG]; 
TITl E[EDTask]; 
SET[MainPage, 2]; 
SET[SubPagel. 1]: 
SET[splb,lshift[SubPagel,10]]; 
SET[SubPage2, 4]; 
SET[sp2b,lshift[SubPage2,10]]; 
SET[SubPage3, 3]; 



•Task and register test program, ED revision 
•definition of Main Program page 
•definition of Subroutine page 1 

•definition of Subroutine page 2 

•definition of Subroutine page 3 



ft*************************** Switch Base' A**************************** 



SET[SpecialBigSwitch. 1120]; 
SET[SpecialSmallSwitch, 1140]; 
SET[outerSwitch. 1240]; 
SET[StkSwitchO, 1460]: 
SET[StkSwitchl. 1500]; 
SET[RegBase. 40]; 



•switch base for special register selection 
•switch base for special register 
•base of switch on RSEL[4:5] 
•stack switch base 
•stack switch base 



••**••«*•****•*****•*****«** Offsets ' *»**»»********«»****»***»**** 

SET[InitialStkpOffset, 0]; 
SET[TargetValueOffset. 1]; 
SET[TmpOffsot. 2]; 
SET[SaveStkpOffset. 3]; 
SET[ResultOffset, 4]; 
SET[ReentryOffset, 5]; 



RV[Revision , ,1] 
RV[Run-Time, 1,5] 



R- registers : 



**»»**»*•****»»******»*»****» 



•REVISION 1 

•Run-Time is 5 seconds 



RV[InnerLoopCounter,2.0]; 
RV[PassCount ,3]; 

RV[MaxPass,4, 2]; 
RV[NewRand.5, 1]; 

RV[ShortLoop.6.0]; 

RV[SubTest.7]; 

RV[DBTest.ll]; 
RV[MiscTest. 12]; 
RV[PCFTest, 13]: 
RV[RRTest.l4]; 
RV[SBTest, 15]; 
RV[StkTest, 16]; 

RV[CS0,17]; 
RV[CS1.20]; 
RV[CS2,21]; 
RV[DeltaStack,22]; 
RV[ Dummy Reg ister.23] ; 
RVrExpectedStkp.24]; 
RV[FieldMask.25]: 
RV[InitialCycCtl ,26]; 

RV[Inst ruction Ad dress, 27] 

RV[NewTask,30]; 

RV[RegShiftFlag,31]; 

RV[StackShiftFlag,32]; 

RV[StkpTest ,33]; 

RV[.SturfTmp.34]; 

RV[TargetRegister,35]; 

RV[TargetTask,36]; 



•16 bits inner loop counter 

•outer loop pass counter incremented each time when 

• InnerLoopCounter reached the limit 

•number of times outer loop is to repeat before breakpo inting 

•1 = change the pseudorandom number 

•0 = keep the current pseudorandom number 

•1 = loop endlessly on current subtest 

•0 = proceed to the next subtest 

•current location of test 

•number of times the DB register test has executed 

•number of times the Misc registers test has executed 

•number of times the PCF register test has executed 

•number of times the straight register test has executed 

•number of times the SB register test has executed 

•number of times the stack register test has executed 

•temporary storage for first word of a control store location 
•temporary storage for second word of a control store location 
•temporary storage for third word of a control store location 
•amount by which stack is to be incremented or decremented 
•used as a place holder in instruction to be stuffed 
•value of STKP after stack operation 

•indicates part of result to be tested (usually all l's) 
•value to be stuffed into cyclecontrol immmedial tly preceding 

* read test 

•location of CS instruction to be stuffed 

•task switching contents for APC&APCTASK 

•indicates that the RE6SHIFT function is to be used 

•indicates that the STACKSHIFT function is tc be used 

•indicates that the STKP is to be checked after the test 

•used in the stuff operations 

•the absolute address of the register to be tested 

•the task that will be briefly entered for test purposes 
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RV[InitialStkp,40,ADD[RegBase, InitialStkpOf fset]] ; 
RV[TargetVa1ue.4i ,ADD[RegBase. TargetValueOf f set]] ; 
RV[Trnp,42,ADD[RegBase. TmpOffset]]: 

RV[SaveStkp.43,ADD[Reg8ase, SaveStkpOff set]] ; 
RV[ResuU,44.ADD[RegBase, ResultOff set]] ; 

RV[WriteTestReentryloc.45.ADD[RegBase, ReentryOff set]] ; 



•value of STKP before stack operation 
♦value to be stuffed in register 
•used to load ARC in remote task 

• (different for each task) 

•contents of STKP placed here by upper task 
•contents of target register placed here 

• by upper task 

•location in task to return to 



RV[CA,52] 
RV[CB,53] 
RV[XA,54] 
RV[XB,55] 



*used in random number generation, A*XA + CA 
•used in random number generation, A*XB + CB 
•random number generated via A*XA + CA 
•used in random number generation, A*XB + CB 
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••*• MAIN routine: 

ONPAGE[MainPage]; 

go: 

start: *RandomInit (Initialize random generator registers: XA «- 123, CA ♦- 33031) 

XA - AND@[0377, 123]C: *Loadl6Bits (XA - 123) 

XA - (XA) OR (AND@[177400, 123]C); 

CA *■ AND@[0377. 33031]C; *Loadl6Bits (CA * 33031) 

CA - (CA) OR (AND@[177400, 33031]C); 

•Randomlnit (Initialize random generator registers: XB «- 456, CB <- 33035) 
XB - AND@[0377. 456]C; *Loadl6Bits (XB * 456) 

XB - (XB) OR (AND@[177400, 456]C); 

CB - AND@[0377, 33035]C; *Loadl6Bits (CB «- 33035) 

CB - (CB) OR (AND®[177400, 33035]C); 

CLEARMPANEL; 
PassCount ♦• 0C; 
RRTest ♦- OC; 
PCFTest «- OC; 
SBTest - OC; 
DBTest - OC; 
StkTest <- OC; 
MiscTest - OC; 

WriteTestReentryLoc - AND0[O377. 772]C; *Loadl6Bits (WriteTestReentryLoc «- 772) 
WriteTestReentryLoc - (WriteTestReentryLoc) OR (AND@[ 177400 , 772]C); 

bigLoop: INCMPANEL; 

t *- PassCount *- (PassCount) + 1; 

LU *■ (MaxPass) - (t); * check for maximum pass counter reached 

GOTO[mainLoop', ALU >= 0]; 

Passed-EDTask-Test: BREAKPOINT, goto[go]; 

***** SUBTEST0 ***** 
mainLoop: SubTest «- OC; 

RegShiftHag <- OC; 

StackShif tFlag - OC; 

StkpTest - OC: 

InitialStkp - 20c; 

FieldMask - (ZERO) - 1 ; 

LU - (NewRand) ; 
GOTO[SetTTask, ALU = 0]; 

InnerLoopCounter «- ( InnerLoopCounter) + 1; 
GOTO[bigLoop. CARRY]; 

•Random (4005*XA + CA mod 2**16) 
t - XA; 

t - (LSH[XA, 2]) + t; 
t - (LSH[XA. 13]) + t; 
t <- (CA) + t; 
XA - t; 

SetTTask: t «- LDF[XA, 7, 4]; 
TargetTask «- t; 
lu - (TargetTask) - (16C) : 
GOTO[ChooseTest. ALU < C]; 
GOTO[mainLoop] ; *don't touch tasks 16 or 17 (kernel) 

•choose test 

ChooseTest: LU - (XA) AND (100000C); 
GOTO[OutSwitch. ALU # 0]: 

•xxxxxxRR 

LOADPAGE[SubPage3]: 
CALLP[FirstSixBits]; 
RRTest ♦- (RRTest) + 1; 
GOTO[RunSubTest]: 



edtask.mc 



10-Apr-80 16:10:57 



Page 



* Switch4 (Use DJSPATCH[XA. 5. 2] to select cases. Locate switch table at outerSwitch. 
OutSwitch: SET[Swi tchlO , outerSwi ten] : 

DISPATCH[XA. 5. 2]; 

DISP[SwitchTablO]; 

SwitchTablO: ' GOTO[CaselO] , AT[SwitchlO. 0] 

GOTO[Casell], AT[SwitchlO, 1] 

GOTO[Casel2 ], AT[SwitchlO, 2] 

GOTO[Casel3], AT[SwitchlO. 3] 

•xxxxxxPP - PCF 
CaselO: LOADPAGE[SubPage3]; 
CALLP[FirstSixBits]; 
t - LDF[XA, 13. 2], 
LOADPAGE[SubPage3] 
CALLP[LastTwoBits] 
t - LDF[XA, 13. 3] 
Tmp ♦* t ; 
PCF «- Tmp; 

PCFTest - (PCFTest) + 1; 
GOTO[RunSubTest]: 

•xxxxxxSS - SB 
Casell: LOADPAGE[SubPage3]; 
CALLP[FirstSixBits]; 
t - LDF[XA. 12. 2] 
LOADPAGE[SubPage3] 
CALLP[LastTwoBits] 
t - LDF[XA, 12, 6] 
Tmp ♦• t ; 
SB ♦• Tmp; 
BBFB; 

SBTest - (SBTest) 
GOTO[RunSubTest]; 



•to advance SB to SBX 



*xxxxxxDD - OB 
Casel2: LOADPAGE[SubPage3] ; 
CALLP[FirstSixBits]; 
t «- LDF[XA, 12. 2J 
LOADPAGE[SubPage3] 
CALLP[LastTwoBits] 
t «- LDF[XA, 12. 6] 
Tmp <- t ; 
DB - Tmp; 
BBFB; 

DBTest - (DBTest) + 1; 
GOTO[RunSubTest]; 

Casel3: t - 3C; 

LU - (LDF[XA, 1, 2]) - (t): 
GOTO[SpecialReg. ALU # 0]; 

* SSSSSSSS - STKP 

LOADPAGE[SubPage3]; 

GOTOP[.+l]; 

0NPA6E[SubFage3]; 

t *■ LDF[XA, 10, 1C]; 

TargetRegister - t; 

t - LDF[XA. 7, 1]; 

StackShiftFlag - t; 

t «- LDF[XA, 10, 10]; 

ExpectedStkp «- t; 

t - (ExpectedStkp) ; 

InitialStkp <- t; 

lu *• (Initial Stkp ) and not (37c; 

goto[ .+3,a1u#0]; 

AbandonTest: lcadpage[ma inPage] ; 
gotop[mainLoop] : 

LU - (StackShiftFlag) ; 
GOTO[StkSwitchB, ALU # Oj; 



•to advance DB to DBX 



•don't load stkp with <40b 
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* Switch4 (Use DISPATCH[XA, 3, 2] to select cases. Locate switch table at StkSwitchO 
StkSwitchA: SET[Switch20 , StkSwitchO]; 

DISPATCH[XA. 3, 2]; 

DISP[SwitchTab20] ; 



SwitchTab20: 

Case2C : 
Case21 : 
Case22: 
Case23 : 



GOTO[Case20], AT[Switch20, 0] 

GOTO[Case21], AT[Switch20, 1] 

60TO[Case22], AT[Switch20, 2] 

GOTO[Case23], AT[Switch20, 3] 

DeltaStack «- 0C; 
GOTO[DHStack] ; 

DeltaStack *■ 1C; 
GOTO[DltStack]; 

DeltaStack «- (ZERO) - 1; 
GOTO[DHStack] ; 



t «- 2C; 

DeltaStack «- (ZERO) - (t); 

GOTO[DltStack] ; 

* Switch4 (Use DISPATCH[XA, 3, 2] to select cases. Locate switch table at StkSwitchl.) 
StkSwitchB: SETf"Switch30 . StkSwitchl]; 

DISPATCH[XA, 3, 2]; 

DISP[SwitchTab30]; 



SwitchTab30 

Case30: 
Case31 : 
Case32: 
Cass33: 
DUStack: 



GOTO[Case30], AT[Switch30. 0] 

GOTO[Case31], AT[Switch30, 1] 

GOTO[Case32], AT[Switch30, 2] 

GOTO[Case33], AT[Switch30. 3] 

DeltaStack «- 2C; 
GOTO[DltStack]: 

DeltaStack - 3C; 
GOTO[DUStack]; 

LOADPAGE[MainPage]; 
GOTOP[mainLoop]; 

t <- 3C; 

DeltaStack - (ZERO) - (t) ; 

LU - (XA) AND (000020C); 
GOTO[SubtractStk. ALU # 0]; 



*add DeltaStack to lower 4 bits of ExpectedStkp with no carry into upper bits 
t «- (ExpectedStkp) AMD (17C); 
ExpectedStkp - (ExpectedStkp) AND NOT (17C); 
t - (DeltaStack) + (t) ; 
Tmp *■ t ; 

t - (Tmp) AND (17C) ; 
ExpectedStkp «- (ExpectedStkp) OR (t); 
GOTO[SetStkp]; 

♦subtract DeltaStack from lower 4 bits of InitialStkp with no carry into upper bits 
SubtractStk: t - (InitialStkp) AND (17C); 

InitialStkp - (InitialStkp) AND NOT (17C); 

Tmp «- t ; 

Tmp - (Tmp) + (20C); 

t *• DeltaStack; 

Tmp «- (Tmp) - ( t) ; 

t «- (Tmp) AND (17C) ; 

InitialStkp «- (InitialStkp) OR (t); 

SetStkp: StkpTest - 1C; 

StkTest - (StkTest) + 1; 

LOADPAGE[2]; 

60T0P[.t1]: 

ONPAGE[2]; 

GOTO[RunSubTest]; 

•Special Registers 
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SpecialReg: t - LDF[XA, 10. 1]; 
RegShiftFlag - t; 

LU - (NewRand); 
GOTO[SetTarValue. ALU = 0]: 

•Random (4005*XB + CB mod 2**16) 
t «- XB; 

t «- (LSH[XB, 2]) + t; 
t «- (LSH[XB, 13]) + t; 
t «- (CB) + t; 
XB - t; 

SetTarValue: t - (XB); 

TargetValue <- t; 

LU «- (XA) AND (040000C); 
GOTO[SmallSwitch. ALU # 0]: 

* SwitchS (Use DISPATCH[XA, 2, 3] to select "cases . Locate switch table at SpecialBigSwitch. ) 



BigSwitch; 



SwitchTab40; 



SET[Switch40, SpecialBigSwitch]; 
DISPATCH[XA, 2. 3]; 
DISP[SwitChTab40]; 



GOTO[Case40] 
G0T0[Case41] 
G0T0[Case42] 
G0T0[Case43] 
G0T0[Case44] 
G0T0[Case45] 
G0T0[Case46] 
GOTO[Case47] 



AT[Switch40, 0] 

AT[Switch40, 1] 

AT[Switch40, 2] 

AT[SwitCh40, 3] 

AT[Switch40, 4] 

AT[Switch40, 5] 

AT[SwitCh40. 6] 

AT[Switch40, 7] 



* RSEL * 3. SSTKP, STKP 
*Load SSTKP 



Case40: 



t - LDF[XB, 0, 10]; 
Tmp «- t; 

lu *■ (Tmp) and not (37c) ; 
goto[ .+3,alu#0]: 



AbandonTestl 



loadpage[mainPage] 
gotop[mainLoop]; 

STKP «- Tmp; 
loadpage[4] ; 
callp[New!nstx], 



•don't load stkp with <40 



•Newlnst is now done when control is at 2001bM*n, n = 0-377b 



•Load STKP 

t - LDF[XB, 10. 10]; 

InitialStkp ♦- t; 

InitialStkp - (InitialStkp) xor (377c); 

lu *■ (InitialStkp) and not (37c); 

goto[IncMiscTest,ALU#0]; 

goto[AbandonTestl] ; 

• RSEL * 7. (ALURESULT), SALUF 
Case41: FieldMask ■«- 377C; 

t - TargetValue; 

t - (ZERO) OR NOT (t); 

SALUF «- t; 

GOTO[IncMiscTest]; 

• RSEL = 13, MEMSYNDROME 
Case42: GOTO[mainLoop] ; 

• RSEL * 17, MEMERROR 
Case43: GOTO[mainLoop]; 

• RSEL = 23, UNUSED 
Case44: GOTO[mainLoop]; 

• RSEL = 27 

Case45: LU «■ (RegShiftFlag); 

GOTO[GoBack, ALU H 0]; 



• CYCLECONTROL. PCXREG, PCFREG 
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FieldMask «■ AND@[0377, 177567]C; *Loadl6Bits (FieldMask <- 177567) 
FieldMask - (FieldMask) OR (AND@[177400. 177567]C); 

* Load PCXREG 

t - LDF[XB, 10, 4]; 
Tmp «■ t; 
PCF «- Tmp; 
loadpage[4] ; 
callp[New!nstx]; 



•Newlnst is now done when control is at 2001b+4*n, n=0-377b 



GoBack: 
Case4(3: 



* NEWINST; 

* Load PCXREG 

t «-■ LDF[XB, 14, 4]; 
Tmp ♦■ t; 
PCF *• Tmp; 

* Load CycleControl (DBX and MWX) 

t «- LDFfXB, 0. 10]; 
InitialCycCtl - t; 
GOTO[IncMiscTest]; 

* PRINTER 

GOTO[mainLoop]; 

* RSEL * 33 

LU - (RegShiftFlag); 
GOTO[SetDB&SB, ALU # 0]; 



* TIMER 



GOTO[mainLoop]; 



SetDB&SB 



Case47 



* DBREG. SBREG 

: FieldMask - AND@[0377, 7777]C; *Loadl6BitS (FieldMask - 7777) 

FieldMask «- (FieldMask) OR (AND@[177400. 7777]C); 
t - LDF[TargetValue, 4, 6]; 
Tmp «• t; 
DB ♦• Tmp; 

t ♦• LDF[TargetValue. 12, 6]; 
Tmp *• t; 
SB *■ Tmp; 
BBFB; 
GOTO[IncMiscTest]; 

* RSEL = 37 

LU *■ (RegShiftFlag); 
GOTO[SetMNBR. ALU # 0]; 



•to advance DB to DBX and SB to SBX 



• RS232 



• MNBR 



SetMNEIR: 



GOTO[mainLoop]; 



MNBR - TargetValue; 
GOTO[IncMiscTest]; 



• Switch4 (Use DISPATCH[XA, 3, 2] to select cases. Locate switch table at SpecialSmallSwitch. 
SmallSwitch: SET[Switch50 , SpecialSmallSwitch]; 

DISPATCH[XA, 3. 2]; 

DISP[SwitchTab50]; 

SwitchTab50: GOTO[Case50] , AT[Switch50, 0] 

G0T0[Case51], AT[Switch50, 1] 

GOTO[Case52], AT[Switch50. 2] 

GOTO[Case53], AT[Switch50, 3] 

• RSEL = 43, APCTASK, APC 
Case50: GOTO[mainLoop] ; 

• RSEL * 47, CTASK, NCIA 
Case51: GOTO[mainLoop] ; 

• RSEL = 53, CSDATA 

• CSDATA will be loaded just prior to switching to higher task 
Case52: GOTO[IncMiscTest] ; 

• RSEL = 57, PAGE, PARITY. BOOTREASON 
Case53: G0T0[mainLoop] ; 
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IncMiscTest: MiscTest *■ (MiscTest) + 1; 
L0ADPA6E[SubPagel]; 
CALLP[SetUpRead]; 
LOADPA6E[SubPagel]; 
CALLP[ReadTestJ; 
GOTO[mainLoop]; 

RunSubTest: LOADPAGE[SubPage3] ; 
GOTOP[.+l]; 
ONPAGE[SubPage3]; 

•actual test 

LU - (XA) AND (000020C); 
GOTO[Write, ALU # .0]; 

•Read Test 

LOADPAGE[SubPagel]; 

CALLP[SetUpRead]; 

LOADPAGE[SubPage2] 

CALLP[PrimeTarget] 

LOADPAGE[SubPagel] 

CALLP[ReadTest]; 

GOTO[CheckStkp] ; 

•Write Test 
Write: LOADPAGE[SubPage2]; 
CALLP[WriteTest]; 

CheckStkp: LU *- (StkpTest); 

GOTO[Repeat, ALU » 0] 
LOADPAGE[SubPage3]; 
CALLP[StacKCompare] ; 
nop ; 

Repeat: LOADPAGE[MainPage] ; 
GOTOP[mainLoop]; 
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•SUBROUTINE 

********** SUBROUTINE: FirstSixBits ********** 

* 

* deciphers the first six bits of the absolute R-register from Target Task 

ONPAGE[SubPage3]; 

FirstSixBits: LU «- (XA) AND (060000C); 

GOTO[ShiftTarget. ALU # 0]; 

*TTTTRRxx 

t «• LSH[TargetTask, 4]; 
t - (LDF[XA, 3, 4]) OR t; 
GOTO[SetTarget]; 

*TTRRRRxx 
ShiftTarget: t *■ RSH[TargetTask, 2]; 
TargetRegister «- t; 
t *■ LSH[TargetRegister, 6]; 
t «- (LDF[XA, 1. 6]) OR t; 

SetTarget: TargetRegister ♦• t; 
RETURN; 



********** SUBROUTINE: LastTwoBitS *******»*» 

* inserts the last two bits of the absolute R-reg from t 

ONPAGE[SubPage3]; 

LastTwoBits: TargetRegister <- RSH[TargetRegister, 2]; 

TargetRegister ♦■ (LSH[TargetRegister, 2]) OR t; 

RETURN; 



•*«******* SUBROUTINE: Newlnstx *******»*• 

* Newlnst ic now done when control is at 2001b+4*n, n=0-377b 

OnPage[SubPage2]; 

Newlnstx: Return, at[2001]; 
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*•*.«,.«*• SUBROUTINE: PrimeTarget **••*«*»•* 

* prime the target register with a value 

ONPAGE[SubPage2]; 

PrimeTarget: LU «- (TargetRegister) - (46C); 
GOTO[SkipRead, ALU < 0]; 

t *• 360C; *done this way (with t) due to assembler bug 

LU ♦■ (TargetRegister) - (t); 
60TO[SetStkp2, ALU < 0]; 
NOP; 

SkipRead: LoadPage[mainPage] ; *don't do read test 

gotop[mainLoop]; 

SetStkp2: stkp «- TargetRegister; 
LU - (NewKand); 
GOTO[SetTarValue2. ALU - 0]; 

•Random (4005*XB + CB mod 2**16) 

t «- XB; 

t - (LSH[XB. 2]) + t; 
t «- (LSH[XB, 13]) + t; 
t «- (CB) + t; 

XB •■ t; 

SetTarVa1ue2: t *■ XB; 

TargetVaTue ♦• t; 
STACK ♦■ t; 
RETURN; 
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•....«.*., SUBROUTINE: Readiest *•«**«**** 

* executes the read test. 

ONPAGE[SubPagel]; 

•switch to higher task 
•set up CSDATA 
Readiest: LU «• TargetValue; 

APC&APCTASK *■ InstructionAddress ; 

WRITECS1; 

t «- lC,at[splb.l4]; 

APC&APCTASK - InstructionAddress; 

READCS; 

CYCLECONTROL «- Ini t ialCycCtl ,at[splb , 16] ; 

STKP *■ InitialStkp; 

APC&APCTASK - NewTask; 
RETURN; 

H1ghTask760: 

•IN HIGHER TASK 

t - DummyRegister, REGSHIFT, AT[760]; 

•Save test results 

Result «- t; *Result will be different for each task 

t «- (GETRSPEC[103]) OR (177400C); *get the STKP in a form ready to be inverted 

•Put test results in low register memory 

Tmp ♦• ADD[RegBase, SaveStkpOffset ]C ; 

STKP <- Tmp; 

STACK «> (ZERO) OR NOT (t); *write SaveStkp( inverting STKP first) 

t ♦• Result; 

STACK&+1 «- t; 'write Result 

*Loadl6Bits (Tmp - 770) 

Tmp «- AND@[0377, 770]C; 

Tmp - (Tmp) OR (AND@[ 177400 , 770]C): 

•Tmp will be different for each task 
APC&APCTASK - Tmp; 
RETURN; 

***** SUBTEST1 ***** 

SubTestl: SubTest - 1C, AT[770]; 

t - FieldMask; 

TargetValue «- (TargetValue) AND (t); 

t «- Result - (Result) AND (t); 

LU «- (TargetValue) - (t) : 

60T0[ReadSuccess. ALU = 0]; 

ShortLoop *• ShortLoop, GOTO[.+2, R EVEN]; *Test for shortLoop option 
GOTO[SubTestl]; *ShortLoop selected 

ReadFail: BREAKPOINT; 

ShortLoop '«- ShortLoop, GOTO[.+2, R EVEN]; *Test for shortLoop option 

GOTO[SubTestl]; *ShortLoop selected 

NOP; 'resolves a branching conflict 

ReadSuccess: RETURN; 
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...,«,...* SUBROUTINE: SetUpRead ****•••*** 
* create environment for read test 

ONPAGE[SubPagel]; 
NOP, AT[777]; 

SetUpRead: 

•modify the register reference instruction 

InstructionAddress «- AND@[0377, 760]C: *Loadl6Bits ( InstructionAddress - 760) 
InstructionAddress «- (InstructionAddress) OR (AND@[177400. 760]C); 

*readCS (read control store location 'InstructionAddress') 
•use CS2 for a temporary register until end 

t «- (InstructionAddress); 

CS2 - t; 

t - 0C; 

APCTASK&APC «- (CS2); 

READCS; 

t «- CSData, AT[splb,2]; 

CSO - t; 

t - 1C; 

APCTASK&APC «• (CS2); 

READCS; 

t «■ CSData, AT[splb,4] ; 

CS1 - t; 

t «- 3C; 

APCTASK&APC «- (CS2); 

READCS; 

t *■ CSData. AT[splb,6]; 

CS2 - t; 

CS2 *■ RSH[CS2, 14]; 

•stuffRsel (set the RMOD and RSEL fields in CSO. CS1, CS2 to contents of XA) 
•CopyField (CS0[01. 5] - XA[0. 5], temp is stuffTmp) 

t «- LDF[XA, 0, 5]; 

StuffTmp «- 5C; 

stuffTmp «- (stuffTmp) - 1; 

StuffTmp - (stuffTmp) OR (LSHIFT[01, 4]C): 

CYCLECONTROL - StuffTmp; 

stuffTmp «- t; 

t ♦- WFA[stuffTmp]; 

CSO «- WFB[(CS0) OR t]; 

CSO - (CSO) XOR (030000C); "invert bits in microinstruction 

♦CopyField (CS2[14, 2] «- XA[5. 2]. temp is stuffTmp) 
t - LDF[XA, 5, 2]; 
StuffTmp <- 2C; 
StuffTmp «- (StuffTmp) - 1; 
StuffTmp «- (StuffTmp) OR (LSHIFT[14. 4]C); 
CYCLECONTROL - StuffTmp; 
StuffTmp *■ t; 
t - WFA[stuffTmp]; 
CS2 - WFB[(CS2) OR t]; 

*stuffF2 (set the F2 field in CSO, CS1, CS2 to 12) 
StuffTmp «- OR@[LSHIFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL «■ StuffTmp; 
StuffTmp - 12C; 
t «- WFA[StuffTmp]; 
CS1 - WFB[(CS1) OR t]; 
LU - (StackShiftFlag); 
GOTO[CheckFlag, ALU = 0]; 

*stuffF2 (set the F2 field in CSO, CS1, CS2 to 03) 
StuffTmp «- OR@[LSHIFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL «- StuffTmp; 
StuffTmp ♦■ 03C; 
t *■ WFA[StuffTmp]; 
CS1 •■ WFB[(CS1) OR t]; 

CheckFlag: LU - (RegShif tFlag ) ; 

GOTO[WriteCS, ALU = 0]; 
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•stuffF2 (set the F2 field in CSO, CS1, CS2 to 00) 
StuffTmp «■ OR@[LSHIFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL * StuffTmp; 
StuffTmp «• 00C; 
t *• WFA[StuffTmp]; 
CS1 - WFB[(CS1) OR t]; 

•writeCS (write control store location 'InstructionAddress') 
WriteCS: t «- (CSO); 

'Tmp «• t; • put CSO in the temp, reg . 

t «- (CS1); * get CS1 

Tmp - t *■ (Tmp) XOR (t); *exclusive or the first two CS words 

t *• (LDF[CS2, 14 ,4]) XOR (t); *now exclusive or the third CS word with the result 
Tmp «- t <- (LDF[Tmp,0, 10]) XOR (t); "now start the halfing process to get parity 
Tmp «- t - (LDF[Tmp,10,4]) XOR (t); 
Tmp - t - (LDF[Tmp,14,2]) XOR (t); 

Tmp *■ t *• (LDF[Tmp,16, 1]) XNOR (t); *do last part and complement it 
t *■ (LDF[Tmp, 17, 1]) ; *put parity bit in the t-register 

CS1 «■ (CS1) XOR (t); *exclusive or the parity bit into bit 31 of CS (15 of CS1) 
t ♦■ (CS2); 
LU «- (CSO); 

APCTASK&APC ♦• (InstructionAddress); 
WriteCS0&2; 

LU «■ (CS1), at[splb,10]; 
APCTASK&APC ♦• (InstructionAddress); 
WrUeCSl; 

•set up higher task 

t «- LSH[TargetTask, 14], at[splb,12]; 
NewTask <- t; 

Tmp - AND@[0377, 760]C; •Loadl6Bits (Tmp «- 760) 

Tmp ♦• (Tmp) OR ( AND@[177400 . 760]C); 

t ♦• Tmp ; 

NewTask -(NewTask) OR (t); 

*set up for writing into control store the value that will be read into CSDATA 

InstructionAddress - AWD@[0377. 777 ]C ; *Loadl6Bits (InstructionAddress - 777) 
InstructionAddress - (InstructionAddress) OR (AND@[ 177400 , 777]C); 

RETURN; 



********** SUBROUTINE: StackCompare *••»****** 

• 

* make sure the stack pointer is correct 
ONPAGE[SubPage3]; 

***** SUBTEST2 ***** 

StackCompare: SubTest «- 2C; 

t «■ (SaveStkp) AND (0377C); 
LU - (ExpectedStkp) - (t); 
GOTO[StackSuccess, ALU = 0]; 

ShortLoop ♦■ ShortLoop, GOTO[.+2, R EVEN]; *Test for shortLoop option 
GOTO[StackCompare] ; "ShortLoop selected 

StackFail: BREAKPOINT; 

ShortLoop ♦• ShortLoop, G0T0[.+2, R EVEN]; *Test for shortLoop option 

G0T0[StackCompare] ; *ShortLoop selected 

NOP; "resolves a branching conflict 

StackSuccess: RETURN; 
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,,„*•«»»*« SUBROUTINE: WriteTest ***••***** 

* sets up and executes the write test 

0NPA6E[SubPage2]; 

WriteTest : 

•modify the register reference instruction 

InstructionAddress - AND@[0377, 762]C; *Loadl6Bits (InstructionAddress «- 762) 
InstructionAddress «- (InstructionAddress) OR ( AND@[177400 , 762]C); 

•readCS (read control store location 'InstructionAddress') 
•use CS2 for a temporary register until end 

t «- (InstructionAddress); 

CS2 «• t; 

t - 0C; 

APCTASK&APC «- (CS2); 

READCS; 

t «- CSData.at[sp2b,20]; 

CSO - t; 

t - 1C; 

APCTASK&APC «■ (CS2); 

READCS; 

t «- CSData,at[sp2b,22] ; 

CS1 - t; 

t «- 3C; 

APCTASK&APC - (CS2); 

READCS; 

t «- CSData,at[sp2b.24] ; 

CS2 «- t; 

CS2 - RSH[CS2, 14]; 

•stuffRsel (set the RMOD and RSEL fields in CSO, CS1, CS2 to contents of XA) 
•CopyField (CS0[01, 5] «- XA[0. 5], temp is stuffTmp) 
t «• LDF[XA, 0, 5]; 
StuffTmp *- 5C; 
StuffTmp «- (stuffTmp) - 1; 
stuffTmp «- (stuffTmp) OR (LSHIFT[01, 4]C); 
CYCLECONTROL *■ stuffTmp; 
StuffTmp *■ t ; 
t «- WFA[stuffTmp]; 
CSO «- WFB[(CS0) OR t]; 
CSO «- (CSO) XOR (030000C); 'invert bits in microinstruction 

•CopyField (CS2[14, 2] - XA[5, 2], temp is stuffTmp) 
t ♦• LDF[XA. 5, 2]; 
stuffTmp ♦• 2C; 
stuffTmp *■ (stuffTmp) - 1; 
StuffTmp - (stuffTmp) OR (LSHIFT[14, 4]C); 
CYCLECONTROL *■ stuffTmp; 
StuffTmp «- t; 
t «- WFA[stuffTmp]; 
CS2 «- WFB[(CS2) OR t]; 

•stuffF2 (set the F2 field in CSO, CS1, CS2 to 12) 
StuffTmp «■ OR@[LSHIFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL «■ StuffTmp; 
StuffTmp «- 12C; 
t *■ WFA[StuffTmp]; 
CS1 - WFB[(CS1) OR t]; 
LU - (StackShiftFlag); 
GOTO[CheckFlag2, ALU * 0]; 

•stuffF2 (set the F2 field in CSO. CS1, CS2 to 03) 
StuffTmp «- OR9[LSh'IFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL *■ StuffTmp; 
StuffTmp ♦■ 03C; 
t *■ WFA[StuffTmp]; 
CS1 «- WFB[(CS1) OR t]; 

CheckFlag2: LU - (RegShif tFlag) ; 

GOTO[WriteCS2, ALU = 0]; 

•stuffF2 (set the F2 field in CSO. CS1. CS2 to 00) 
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StuffTmp «- OR@[LSHIFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL - StuffTmp; 
StuffTmp - 00C; 
t «- WFA[StuffTmp]; 
CS1 - WFB[(CS1) OR t]; 



WriteCS2: 



"writeCS (write control store location ' InstructionAddress ' ) 
t - (CSO); 

Tmp *■ t; *put CSO in the temp, reg . 

t - (CS1); *get CS1 

Tmp *• t «- (Tmp) XOR (t); *exclusive or the first two CS words 

t *- (LDF[CS2,14,4]) XOR (t); *now exclusive or the third CS word with the result 
Tmp *■ t «- (LDF[Tmp,0,10]) XOR (t); *now start the halfing process to get parity 
Tmp «- t «■ (LDF[Tmp,10.4]) XOR (t); 
Tmp «- t «■ (LDF[Tmp,14,2]) XOR (t); 

Tmp *- t «- (LDF[Tmp,16. 1]) XNOR (t); *do last part and complement it 
t «■ (LDF[Tmp,17,l]) ; *put parity bit in the t-register 

CS1 «■ (CS1) XOR (t); "exclusive or the parity bit into bit 31 of CS (15 of CS1) 
t - (CS2); 
LU «■ (CSO); 

APCTASK&APC «- (InstructionAddress); 
WriteCS0&2; 

LU - (CSl),at[sp2b,26]; 
APCTASK&APC ♦- (InstructionAddress); 
WriteCSl; 

♦set up higher task 

t «- LSH[TargetTask, 14] , at[sp2b ,30] ; 
NewTask ♦• t; 

Tmp «- ANDS[0377. 761]C; *Loadl6Bits (Tmp - 761) 

Tmp - (Tmp) OR (AND@[17740C . 761]C); 

t *- Tmp ; 

NewTask <-(NewTask) QR (t); 

♦check range of target register and establish target value • 
LU *- (TargetRegister) - (46C); 
GOTO[BackToMain, ALU < 01; 

t «- 360C; *done this way (with t) due to assembler bug 

LU «- (TargetRegister) *• (t); 
GOTO[ChangeXB. ALU < 0]; 
NOP; 

BackToMain: LOADPAGE[MainPage] ; 
GOTOP[mainLoop]; 

ChangeXB: LU «- (NewRand); 

GOTO[SetTargetVal, ALU = 0]; 

•Random (4005*XB + CB mod 2**16) 
t «- XB; 

t •• (LSH[XB, 2]) + t; 
t ♦• (LSH[XB, 13]) + t; 
t «- (CB) + t; 
XB - t; 

SetTargetVal : t ♦■ XB ; 

TargetValue ♦• t; 

•switch to higher task 

APC&APCTASK - NewTask; 
RETURN; 

•IN HIGHER TASK 
HighTask761: Tmp - ADD[RegBase, TargetValueOff set]C, AT[761]; 
STKP *■ Tmp; 

t *• STACK&-1; *access TargetValue 

STKP «- STACK; *access InitialStkp 

DummyRegister - t, REGSHIFT, AT[762]; 

•save STKP 

t «- ADD[RegBase, SaveStkpOf f set]C ; 

t *• (ZERO) OR NOT (t); *invert value stored into SALUF 

SALUF - t; 
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t «■ (6ETRSPEC[103]) OR (177400C); 'get the STKP 1n a form ready to be inverted 

STKP *- GETRSPEC[107]; "use SALUF as general purpose register 

STACK «- (ZERO) OR NOT (t): "write SaveStkp (invert STKP) 

LU -STACK&+2; *increment STKP 

APC&APCTASK - STACK; *get return register off of stack 

RETURN: 

***** SUBTEST3 ***** 

SubTest3: SubTest - 3C, AT[772]; 

STKP *■ TargetRegister; 

t ♦• STACK; 

LU *■ (Targetvalue) - (t); 

GOTO[WriteSuCCess, ALU = 0]; 

ShortLoop «- ShortLoop, 60T0[.+2, R EVEN]; *Test for shortLoop option 
GOT0[SubTest3J; *ShortLoop selected 

WriteFail: BREAKPOINT; 

ShortLoop *■ ShortLoop, GOTO[.+2, R EVEN]; *Test for shortLoop option 

GOTO[SubTest3]; •ShortLoop selected 

NOP; "resolves a branching conflict 

WriteSuccess: RETURN: 

END; * to end the main routine 
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page, parity, bootreason 



V 



-> 



mainLoop \ 
page 01 J 



Case43: 
— > 



mainLoop 
page 01 



MEMSYNDROME 



MEMERROR 



Case44: 
— > 



mainLoop 
page 01 



Case45 
page 04 



■» 



Case46 
page 04 



UNUSED 



PRINTER 



TIMER 



IncMiscTest: 



Case47: 



->< RegShiftFlag = 0? 



SetMNBR: 



MNBR = TargetValue 



V 



Increment the # of times the 
Misc registers test has executed 



V 



create environment 
for read test 



V 



executes the read tests 



V 



yes 



■> 



V 



MiscTest sMiscTest + 1 

CALL SetUpRead 
page 06 

CALL Readiest 
page 06 



mainLoop \ 
paged J 
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PROGRAM NAME 
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REV 
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DATE 
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03 



Case40: 



Case46: 



TMP = XB[0.10] 



RegShittFlag = 0? 



yes 



TIMER 



t (TMP)andnot (37c) = 0? 



yes 



SetDB&SB: 



-1 



loadSTKP 



STKP = TMP 



V 



\ewlnst is now done when control 
- at 2001b ♦ 4*n. n = 0-377c 



CALL Newlnstx 
page 05 



load InitialStkp 



v 



(InitialStkp) 0nd not (37c) s 0? 



InitialStkp = XB[10.10] xor(377c) 

AbandonT estl: \[/ 

yes 



mainLoop 
page 01 



v 



load I6bits FieldMask 



FieldMask = 7777 



JL 



Load OB&SB Reg 



DB = TargetValue[4.6] 
SB = TargetValue[12.6] 



V 



advance DB to DBX and 
SBtoSBX 



±. 



IncMiscTest 
page03 



mainLoop 
page 01 



don't load Stkp 
with < 40c 



JL 



IncMiscTest 
page03 



Case45: 



RegShittFlag s 0? 



PRINTER 



GoB ack: 

mainLoop \ 
paged J 



± 



yes 



load 16bits FieldMask 



FieldMask = 177567 



JL 



Load PCX Reg 



PCF = XB[10.4] 



N/ 



Newlnst is now done when control 
is at 2001b ♦ 4*n.n » 0-377b 



CALL Newlnstx 
page 05 



v 



Load PCX Reg 



±. 



Load CycleControl (DBX and MWX) 



PCF = XB[14.4] 

InitialCycCtl = XB[0.10] 



JL 



IncMiscTest 
page03 



RunSubTest: 



Write: 



{ XA[11] =0? \ 



Sets up and executes 
the write test 



V 



yes 



create environment 
for read test 



Jt 



prime the target 
register with a value 



CALL SetUpRead 
page 06 

CALL PrimeTarget 
page 05 



±. 



executes the read test 



Che ckStkp: ^ 



CALL ReadTest 
page 06 



CALL 
WriteTest 

page 07 



STKP needs to be 
checked after the test? 



Repeat: 




make sure the stack 
pointer is correct 



StkpTest # 0? 



no 



CALL 

StackCompare 
page 06 



±. 



mainLoop 
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Subroutine: 



FirstS IX Bits ) deciphers the first six bits of the absolute R- register from Target Task 



\/ 



ShiftTarget: 



XA[1:2] = 0? 



TargetRegister = RSH[TargetTask.2] 



, yes 



t :: LDF[XA.3.4] or LSH[TargetTask.4] 



SetTarget: v v 



V 



t = LDF[XA.1.6] orLSH[TargetRegister.6] 



TargetRegister = t 



V 



RETURN 



Subroutine: 



LastTwoBitS ] inserts the last two bits of 
J the absolute R-reg from t 



JL 



TargetRegister a RSH[TargetRegister,2] 



Subroutine: 



Newlnstx 



Newlnst is now done when control is 
at 2001b «• 4*n, where n = • 377c 



JL 



TargetRegister = (LSH[TargetRegist.2]) ort 



I 



V 



RETURN 



RETURN 



Subroutine: 

PrimeTarget ) Prime the target register with a value 



JL 



TargetRegister < 46C? 



yes 



TargetRegister < 360C? 



SkipRead: 



V 



-> 



SetStkp2: 



mainLoop 
page 01 



don't do read test 



Jl 



yes 



Stkp = TargetRegister 



V 



New random number 
selected? 



yes 



-> 



Generate new pseudorandom number XB 



SetTarValue2: 



NewRand = 1? 



JL 



TargetValue = STACK = XB <: 



V 



RETURN 
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Subroutine: 



Subroutine: 



ReadTest ) Executes the read test 



put TargetValue into ALU 



Write the item from A bus into 
Wordl in InstructionAddress 



v 



set T = 1C at location sptb + 14c 



V 



get wordl from control store intoCSData 



V 



set CYCLECONTROL = initialCycCtl 
at location splb * 16 



jl 



Stkp s InitialStkp 



V 



NOTIFY 



RETURN 



HighTask760: 



Notify to HighTask760 



JL 



REGSHIFT 



V 



save test results 



V 



put test results in low register memory 



set up task switching location 



load 16Bits(tmp = 770) 



V 



NOTIFY 



RETURN 



SubTestt 



Notify to SubTesM 



the contents(Result) of the register read \ yes 
(TargetRegister) match those expected ) — - — ^j 
v (TargetValue)? / 



v 



yes 



{ 



ShortLoop 
selected? 



JL n L. 



ReadFail: 

[""break point! 



2. 



yes 



ShortLoop 
selected? 



ReadSuccess: 



\' 



RETURN 



SetUpRead J 



JL 



modify the register reference instruction 



InstructionAddress = 760c 



V 



read control store location InstructionAddress' 



JL 



set the RMOD and RSEL fields CSO. 
CS1. CS2 to contents of XA 



V 



set the F2 field in CSO. CS1 . CS2 to 1 2c 



JL 



StackShiftFlag = 0? 



yes 



->i 



>/'■ 



set the F2 field in CSO, CS1 . CS2 to 03c 



CheckFlag: w 



<r 



$ 



RegShiftFlag = 0? 



yes 



JL 



set the F2 field in CSO. CS1 . CS2 to 00c 



WriteCS: 



v 



write control store location 'InstructionAddress' 



«■ 



V 



V 



set up higher task (NewTask) 



V 



set up for writing into control store the 
value that will be read into CSDATA 



load 16Bits (InstructionAddress 
= 777) 



V 



RETURN 



Subroutine: 



StackCompare 



SubTest2 



v 



the expected stack pointer(ExpectedStkp) 
matches the value of the STKP found immedi 
v after the read or write instruction (SaveStkp)? / \ 



I \ no f 
lately ) >< 



ShortLoop 
selected? 



yes 



StackSuccess: 



StackFail 



yes 



^reakpoinT] 



\l 



RETURN 



ShortLoop 
selected? 



XEROX 

ED 



D(0) 
Dincjnostic 



PROGRAM NAME 

EDTask 



DOCUMENTATION FILE 


DESIGNER 


REV 


DATE 


PAGE 


EDTask-06.sil 


Camellia Chan 


1 
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06 



Subroutine: 



WriteTest 



1 



modify the register reference instruction 



SetTargetVal: 



InstructionAddress s 762c 



V 



read control store location 'InstructionAddress' 



JL 



set the RMOD and RSEL fields CSO. 
CS1.CS2 to contents of XA 



±. 



settheF2fieldinCSO.CS1,CS2to 12c 



V 



StackShiftFlag = 0? 



yes 



->. 



\r 



set the F2 field In CSO, CS1 , CS2 to 03c 



CheckFlag2: v 



<- 



v 



RegShiftFlag = 0? 



yes 



V 



set the F2 field In CSO. CS1 , CS2 to 00c 



^'riteCSa: 



± 



v rfte control store location 'InstructionAddress' 



y 



Jl 



set up higher task (NewTask) 



TargetRegister < 46C? 



yes 



Jl 



TargetRegister < 360C? 



V 



BackToMain: 

— > 



ChangeXB: 



mainLoop 
page 01 



yes 



v 



New random number \ no 
selected? / 



NewRand = 1? 



yes 



V 



Generate new pseudorandom number XB 



/fl" 



> TargetValue s STACK = XB 



V 



NOTIFY 



RETURN 



HighTask761: 



Notify to HighTask76" 



jL 



access TargetValue and InitialStkp 



V 



save STKP 



/\ 



V 



invert value stored into SALUF 



± 



get the STKP in a form ready to be inverted 



±. 



use SALUF as general purpose register 



V 



write save STKPfinvert STKP) 



±. 



increment STKP 



V 



NOTIFY 



RETURN 



SubTest3 



a 



v 



Notify to SubTest3 



the contents(t) of the register written \ yes 
(TargetRegister) match those expected ) > 

> (TargetValue)? / 



yes 






ShortLoop 
selected? 



V 



WriteFail: 

[""brTak point] 



v 



!«- 



yes 



ShortLoop 
selected? 



WrlteSuccess: 



v 



RETURN « 



y 
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ED 


D(0) 
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DESIGNER 
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REV 
1 


DATE 
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07 



PARITY 




3 


REVISION 


1 


COMM-ER0 


CYCLECONTROL 


16 


RUN-TIME 


5 


COMM-ER1 


PCXREG 




5 


PAS3C0UNT 





C0MM-ER2 


PCFREG 




5 


MAXPA8S 


2 


BOOT-ERR 


DBREG 




15 


SUBTEST 





*BOOTREASON 


SBREG 




17 






MEMSYNDROME 


MNBR 




47550 


DBTEST 







*SSTKP 




377 


MISCTEST 







STKP 







PCFTEST 







*ALURESULT 


3 


RRTEST 







SALUF 







SBTE3T 







T 20 




7900 


STKTEST 







AATOVA 













TPC 20 




7777 


FIELDMASK 







CALLER 


ILC@ 


+6714 


INITIALSTKP 


40 




♦PAGE 




2 








*APC 




7811 


EXPECTEDSTKP 





SHORTLOOP 


*APCTASK 




16 


RESULT 


44 


NEWRAND 


*CIA 




GO + 1 


TARGETVALUE 


41 




CTASK 













Loaded : 


EDTAS 


K 






Tim 


Step at 


@:GO, 


BP at 


0:GO+1 











40 

170167 



Time: 09.31 



Exit Boot Run -Prog Read-Crnds Break UnBreak ClrAddedBPs ClrAllBPs ShowBPs Go 

S3 iSnH2IIS Load LdSyms Compare Test-All Test Dump Show-Cmds Write-Cmds 
Virtual 
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MicroD S.6 (OS 16) of April 
at 6-Mar-80 15:42:33 



;7. 1979 



m icrod . run edtask 



edtask. DIB 1 C c 3 b instructions written 6-Mar-SC 15:41:03 

Total of 1063b instructions 

Checking for errors... 

L inking . . . 

Building allocation lists... 

Assigning locations . . . 

1063b instructions in rings involving ONPAGE or AT 
Keloading b inaries . . . 
Checking assignment . . . 
Writing .MB file. . . 
Writing 1 isting . . . 

IM: 



Imag 


Real 


WO 


Wl 


W2 


Symbol 


edtask 


.DIB: 













1060 


16005 


107174 


2 


GO START 


1 


1276 


16320 


101173 


2 


( + D 


2 


1275 


14001 


123170 


12 


(+2) 


3 


1274 


14323 


115167 


12 


(+3) 


4 


1273 


16002 


135164 


6 


(+4) 


5 


1272 


16320 


103162 


6 


(+5) 


6 


1271 


14001 


133161 


16 


(+6) 


7 


1270 


14323 


115156 


16 


( + 7) 


10 


1267 


47 


7155 


2 


( + 10) 


11 


1266 


30020 


101153 


16 


( + 11) 


12 


1265 


36020 


101150 


2 


( + 12) 


13 


1264 


34020 


101146 


16 


( + 13) 


14 


1263 


36020 


101145 


6 


( + 14) 


15 


1262 


34020 


101142 


6 


( + 15) 


16 


1261 


36020 


101140 


12 


( + 16) 


17 


1260 


34020 


101136 


12 


( + 17) 


20 


1257 


12017 


125135 


6 


(+20) 


21 


1256 


12320 


103006 


4 


(+21) 


22 


1003 


47 


5132 


2 


BIGLOOP 


23 


1255 


31050 


165131 


16 


( + D 


24 


1254 


33450 


25126 


2 


(+2) 


25 


1253 


50 


24200 





(+3) 


26 


b 1001 


50 


25140 





PASSED-EDTASK-TEST 


27 


1000 


32020 


101113 


15 


MAINLOOP 


30 


1145 


24020 


101110 


5 


( + 1) 


31 


1144 


24020 


101077 


11 


(+2) 


32 


1137 


24020 


101075 


15 


(+3) 


33 


1136 


10001 


101072 


1 


(+4) 


34 


1135 


23376 


101070 


5 


(+5) 


35 


1134 


32150 


25066 


5 


(+6) 


36 


1133 


50 


24135 





(-7) 


37 


1057 


31050 


125153 


10 


( + 10) 


40 


1065 


50 


24007 





( + 11) 


41 


1002 


16150 


65150 





( + 12) 


42 


1064 


17174 


45147 





( + 13) 


43 


1063 


17174 


67144 





( + 14) 


44 


1062 


15150 


65143 


10 


( + 15) 


45 


1061 


16050 


125134 





( + 16) 


46 


1056 


16163 


51064 


1 


SETTTASK 


47 


1132 


26050 


125063 


11 


( + 1) 


50 


1131 


27400 


35060 


11 


(+2) 


51 


1130 


50 


24331 





(+3) 


52 


1054 


50 


25000 





(+4) 


53 


1055 


16230 


1037 


1 


CHOOSETEST 


54 


1117 


50 


24075 





( + 1) 


55 


1036 


45 


7124 





(+2) 


56 


1052 


50 


25265 


1 


(+3) 


57 


1053 


37050 


125026 


1 


(-4) 


•50 


1113 


50 


25025 


1 


( + 5) 


-1 


103 7 


16171 


31034 


1 


OUTSW1TCH 



edtask . dls 
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Page 



62 


1116 


50 


25700 


2 


(-1) 


53 


01240 


50 


25032 


1 


SWITCHTAB10 


64 


'312-11 


50 


25001 


1 


( + 1) 


65 


©1242 


50 


25016 


1 


( + 2) 


66 


£1243 


50 


25174 


1 


( + 3) 


67 


1115 


45 


7070 





CASE 10 


70 


1034 


50 


25265 


1 


( + D 


71 


1035 


16161 


67030 


1 


(+2) 


72 


1114 


45 


7121 





(+3) 


73 


1050 


50 


25307 


1 


(*4) 


74 


1051 


16162 


65162 





(-5) 


75 


1071 


10050 


125160 


10 


(+6) 


76 


1070 


10150 


31156 


10 


( + 7) 


77 


1067 


35050 


125155 


14 


( + 10) 


100 


1066 


50 


25025 


1 


( + 11) 


101 


1100 


45 


7114 





CASE11 


102 


1046 


50 


25265 


1 


( + D 


103 


1047 


16161 


65176 





(+2) 


104 


1077 


45 


7111 





( + 3) 


105 


1044 


50 


25307 


1 


( + 4) 


106 


1045 


16165 


41174 





( + 5) 


107 


1076 


10050 


125172 


10 


( + 6) 


110 


1075 


10150 


13171 


10 


( + 7) 


111 


1074 


52 


25166 





(-10) 


112 


1073 


37050 


125165 


4 


( + 11) 


113 


1072 


50 


25025 


1 


( + 12) 


114 


1107 


45 


7105 





CASE12 


115 


1042 


50 


25265 


1 


( + 1) 


116 


1043 


16161 


65015 


1 


( + 2) 


117 


1106 


45 


7100 





(+3) 


120 


1040 


50 


25307 


1 


(+4) 


121 


1041 


16165 


41012 


1 


( + 5) 


122 


1105 


10050 


125011 


11 


(+6) 


123 


1104 


10150 


15006 


11 


( + 7) 


124 


1103 


52 


25005 


1 


( + 10) 


125 


1102 


35050 


125002 


5 


( + 11) 


126 


1101 


50 


25025 


1 


( + 12) 


127 


1176 





47173 


1 


CASE13 


130 


1175 


17461 


3170 


1 


( + 1) 


131 


1174 


50 


24061 





(+2) 


132 


1030 


45 


7176 


1 


(+3) 


133 


1177 


50 


25071 





( + 4) 


134 


1434 


16166 


47047 


1 


(+5) 


135 


1523 


26050 


125044 


5 


(+6) 


136 


1522 


16160 


57043 


1 


( + 7) 


137 


1521 


24050 


125040 


11 


( + 10) 


140 


1520 


16166 


47036 


1 


( + 11) 


141 


1517 


22050 


125035 


1 


( + 12) 


142 


1516 


22150 


65032 


1 


( + 13) 


143 


1515 


10050 


125031 


1 


( + 14) 


144 


1514 


10501 


37026 


1 


( + 15) 


145 


1513 


50 


24064 





( + 16) 


146 


1432 


45 


5072 





ABANDONTEST 


147 


1435 


50 


25000 





( + D 


150 


1433 


24150 


25025 


11 


(+2) 


151 


1512 


50 


24061 





(+3) 


152 


1430 


16171 


25023 


1 


STKSWITCHA 


153 


1511 


50 


25740 





( + D 


154 


81460 


50 


25020 


1 


SWITCHTAB20 


155 


01461 


50 


25077 





( + 1) 


156 


@1462 


50 


25102 





( + 2) 


157 


(31463 


50 


25110 





(+3) 


160 


1510 


20020 


101016 


11 


CASE20 


161 


1507 


50 


25015 


1 


( + 1) 


162 


1437 


20000 


103074 


10 


CASE21 


163 


1436 


50 


25015 


I 


( + D 


164 


1441 


21376 


101100 


10 


CASE22 


165 


1440 


50 


25015 


1 


( + 1) 


166 


1444 





45107 





CASE23 


167 


1443 


21476 


101104 


10 


( + D 


170 


1442 


50 


25015 


1 


(+2) 


171 


1431 


16171 


25116 





STKSWITCHB 


172 


1447 


50 


25601 


1 


( + 1) 


173 


@1500 


50 


25115 





SWITCHTAB30 


174 


91501 


50 


25123 





( + U 


175 


91502 


5C 


25052 


1 


( + 2) 
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176 


(31503 


50 


25126 





(+3) 


177 


1446 


20000 


105113 


10 


CASE30 


200 


1445 


50 


25015 


1 


( + D 


201 


1451 


20000 


107121 


10 


CASE31 


202 


1450 


50 


25015 


1 


( + D 


203 


1525 


45 


5051 


1 


CASE32 


204 


1524 


50 


25000 





( + D 


205 


1453 





47124 





CASE33 


206 


1452 


21476 


101015 


11 


( + 1) 


207 


1506 


16201 


1012 


■1 


DLTSTACK 


210 


1505 


50 


24054 





( + D 


211 


1426 


22200 


77010 


1 


(+2) 


212 


1504 


22500 


137177 





( + 3) 


213 


1477 


21150 


65174 


10 


(+4) 


214 


1476 


10050 


125172 


10 


( + 5) 


215 


1475 


10200 


77170 


10 


(+6) 


216 


1474 


22350 


1251*a 





( + 7) 


217 


1473 


50 


25164 





( + 10) 


220 


1427 


10200 


77155 





subtracts™ 


221 


1466 


10500 


137152 





(+1) 


222 


1465 


10050 


125150 


10 


(+2) 


223 


1464 


11101 


101137 


10 


( + 3) 


224 


1457 


20150 


65134 


10 


( + 4) 


225 


1456 


11450 


125133 


10 


(+5) 


226 


1455 


10200 


77131 


10 


(+6) 


227 


1454 


10350 


125164 





( + 7) 


230 


1472 


24000 


103162 


14 


SETSTKP 


231 


1471 


37050 


125160 


10 


( + 1) 


232 


1470 


45 


5157 





( + 2) 


233 


1467 


50 


25020 


1 


(+3) 


234 


1110 


50 


25025 


1 


(+4) 


235 


1031 


16160 


61166 


1 


SPECIALREG 


236 


1173 


24050 


125165 


5 


( + 1) 


237 


1172 


32150 


25162 


5 


(+2) 


240 


1171 


50 


24054 





(+3) 


241 


1027 


16150 


65007 


6 


( + 4) 


242 


1203 


17174 


45004 


6 


(*5) 


243 


1202 


17174 


67002 


6 


(+6) 


244 


1201 


15150 


65000 


16 


( + 7) 


245 


120C 


16050 


125054 


4 


( + 10) 


246 


1026 


16150 


65160 


5 


SETTARVALUE 


247 


1170 


10050 


125157 


5 


( + 1) 


250 


1167 


16224 


1155 


1 


(+2) 


251 


1166 


50 


24015 





(+3) 


252 


1006 


16172 


21120 


2 


BIGSWITCH 


253 


1250 


50 


25640 


1 


( + D 


254 


01120 


50 


25117 


2 


SWITCHTAB40 


255 


01121 


50 


25023 


2 


( + 1) 


256 


01122 


50 


25114 


1 


( + 2) 


257 


01123 


50 


25117 


1 


(+3) 


260 


01124 


50 


25121 


1 


( + 4) 


261 


01125 


50 


25124 


1 


(+5) 


262 


01126 


50 


25142 


1 


(+6) 


263 


01127 


50 


25147 


1 


( + 7) 


264 


1247 


16165 


67115 


6 


CASE40 


265 


1246 


10050 


125113 


12 


( + 1) 


266 


1245 


10501 


37110 


12 


(+2) 


267 


1244 


50 


24020 





(+3) 


270 


1010 


45 


5010 


2 


ABANDONTEST1 


271 


1204 


50 


25000 





( + 1) 


272 


1011 


10150 


3076 


12 


(+2) 


273 


1237 


45 


11024 





(+3) . 


274 


1012 


50 


25202 





(+4) 


275 


1013 


16166 


47075 


6 


(+5) 


276 


1236 


10050 


125073 


2 


(+6) 


277 


1235 


10417 


137071 


2 


( + 7) 


300 


1234 


10501 


37067 


2 


( + 10) 


301 


1233 


50 


24051 





( + 11) 


302 


1024 


50 


25021 





( + 12) 


303 


1211 


22017 


137020 


6 


CASE41 


304 


1210 


10150 


65016 


6 


( + 1) 


305 


1207 


676 


41015 


2 


(+2) 


306 


1206 


50 


23013 


2 


(+3) 


307 


1205 


50 


25053 





(+4) 


310 


1 146 


50 


25000 





CASE42 


3 11 


1147 


50 


25000 





CASE43 



edtask. dl s 



21 -Mar-SO 15:21 : 54 



Page 



312 


1150 


50 


25000 





CASB44 


313 


1152 


24150 


25122 


5 


CASE45 


314 


1151 


50 


24064 





( + 1) 


315 


1032 


22007 


117136 


5 


(+2) 


316 


1157 


22337 


137134 


5 


(+3) 


317 


1156 


16163 


53133 


5 


( + 4) 


320 


1155 


10050 


125131 


11 


(+5) 


321 


1154 


10150 


31126 


11 


(+6) 


322 


1153 


45 


11044 





( + 7) 


323 


1022 


50 


25202 





( + 10) 


324 


1023 


16163 


63034 


6 


( + 11) 


325 


1216 


10050 


125033 


12 


( + 12) 


326 


1215 


10150 


31030 


12 


( + 13) 


327 


1214 


16165 


67027 


6 


( + 14) 


330 


1213 


22050 


125025 


12 


( + 15) 


331 


1212 


50 


25053 





( + 16) 


332 


1033 


50 


25000 





GOBACK 


333 


1161 


24150 


25141 


5 


CASE46 


334 


1160 


50 


24040 





( + 1) 


335 


1020 


50 


25000 





(+2) 


336 


1021 


22017 


137057 


6 


SETDB&SB 


337 


1227 


22320 


137055 


6 


( + 1) 


340 


1226 


10164 


65053 


6 


( + 2) 


341 


1225 


10050 


125050 


12 


(+3) 


342 


1224 


10150 


15047 


12 


(+4) 


343 


1223 


10165 


41045 


6 


( + 5) 


344 


1222 


10050 


125042 


12 


(+6) 


345 


1221 


10150 


13041 


12 


( + 7) 


346 


1220 


52 


25036 


2 


( + 10) 


347 


1217 


50 


25053 





( + 11) 


350 


1163 


24150 


25144 


5 


CASE47 


351 


1162 


50 


24034 





( + 1) 


352 


1016 


50 


25000 





(+2) 


353 


1017 


10150 


27061 


6 


SETMNBR 


354 


1230 


50 


25053 





( + 1) 


355 


1007 


16171 


25153 


1 


SMALLSWITCH 


356 


1165 


50 


25700 


1 


( + 1) 


357 


81140 


50 


25150 


1 


SWITCHTAB50 


360 


81141 


50 


25122 


2 


(-1) 


361 


81142 


50 


25062 


2 


( + 2) 


362 


81143 


50 


25124 


2 


(+3) 


363 


1164 


50 


25000 





CASE50 


364 


1251 


50 


25000 





CASE51 


365 


1231 


50 


25053 





CASE52 


366 


1252 


50 


25000 





CASE53 


367 


1025 


35050 


125064 


12 


INCMISCTEST 


370 


1232 


45 


3030 





( + 1) 


371 


1014 


50 


25362 


1 


(+2) 


372 


1015 


45 


3011 





(+3) 


373 


1004 


50 


25207 





(+4) 


374 


1005 


50 


25000 





(+5) 


375 


1112 


45 


7022 


1 


RUNSUBTEST 


376 


1111 


50 


25054 


1 


( + 1) 


377 


1526 


16201 


1063 


1 


(+2) 


400 


1531 


50 


24020 





(+3) 


401 


1410 


45 


3050 





(+4) 


402 


1424 


50 


25362 


1 


. (+5) 


403 


1425 


45 


11044 





(+6) 


404 


1422 


50 


25201 





( + 7) 


405 


1423 


45 


3041 





( + 10) 


406 


1420 


50 


25207 





( + 11) 


407 


1421 


50 


25027 





( + 12) 


410 


1411 


45 


11024 





WRITE 


411 


1412 


50 


25311 





( + D 


412 


1413 


24150 


25060 


15 


CHECKSTKP 


413 


1530 


50 


24034 





( + 1) 


414 


1417 


45 


7031 





(+2) 


415 


1414 


50 


25315 


1 


(+3) 


416 


1415 


50 


25035 





(+4) 


417 


1416 


45 


5057 


1 


REPEAT 


420 


1527 


50 


25000 





( + D 


421 


1532 


16226 


1104 


1 


FIRSTSIXB1TS 


422 


1542 


50 


24015 





( + D 


423 


1406 


26174 


51102 


11 


(+2) 


424 


1541 


16363 


41100 


1 


(+3) 


425 


1540 


50 


25076 


1 


(+j) 



ecitnsk . cN s 



21 -Mar-SO 15:21:5. 



Page 



426 


1407 


26170 


45073 


11 


SHIFTTARGET 


427 


1535 


26050 


125071 


5 


(-D 


430 


1534 


26174 


55067 


5 


(+2) 


J31 


1533 


16364 


57076 


1 


(+3) 


432 


1537 


26050 


125074 


5 


SETTARGET 


433 


1536 


50 


25401 





( + D 


434 


1543 


26170 


105112 


5 


LASTTWOBITS 


•i35 


1545 


26374 


105111 


5 


( + U 


436 


1544 


50 


25401 





(+2) 


437 


?2001 


50 


25401 





NEWINSTX 


440 


2000 


27402 


15106 


4 


PRIMETARGET 


441 


2043 


50 


24265 





( + D 


442 


2032 


17 


41105 





( + 2) 


443 


2042 


27450 


25102 


4 


( + 3) 


444 


2041 


50 


24235 





( + -) 


445 


2016 


50 


25066 





( + 5) 


446 


2033 


45 


5042 





SKIPREAD 


447 


2021 


50 


25000 





( + D 


450 


2017 


26150 


3101 


4 


SETSTKP2 


451 


2040 


32150 


25076 


4 


( + 1) 


452 


2037 


50 


24031 





(+2) 


453 


2015 


16150 


65063 


4 


(+3) 


454 


2031 


17174 


45056 


4 


( + 4) 


455 


2027 


17174 


67053 


4 


(+5) 


456 


2025 


15150 


65046 


14 


(+6) 


457 


2023 


16050 


125031 


4 


( + 7) 


460 


2014 


16150 


65074 


4 


SETTARVALUE2 


461 


2036 


10050 


125073 


4 


( + D 


462 


2035 


40050 


125071 


14 


( + 2) 


463 


2034 


50 


25401 





(+3) 


464 


403 


10150 


25075 


4 


READIEST 


465 


436 


22147 


21036 


14 


( + D 


466 


417 


47 


33430 





(+2) 


467 


414 





43033 





(+3) 


470 


415 


22147 


21027 


14 


(+4) 


471 


413 


47 


35435 





(+5) 


472 


416 


22150 


11023 


10 


(+6) 


473 


411 


10150 


3016 





( + 7) 


474 


407 


24147 


21012 





( + 10) 


475 


405 


50 


25401 





( + 11) 


476 


@ 760 


20150 


41122 


14 


HIGHTASK760 


477 


451 


12050 


125121 





( + 1) 


500 


450 


70337 


77117 


14 


( + 2) 


501 


447 


10002 


107115 


10 


(+3) 


502 


446 


10150 


3113 


10 


(+4) 


503 


445 


40676 


101111 


14 


(+5) 


504 


444 


12150 


65107 





(+6) 


505 


443 


42050 


125105 


14 


( + 7) 


506 


442 


10017 


121102 


10 


( + 10) 


507 


441 


10320 


103100 


10 


( + 11) 


510 


440 


10147 


21077 


10 


( + 12) 


511 


437 


50 


25401 





( + 13) 


512 


@ 770 


32000 


103136 


14 


SUBTEST1 


513 


457 


22150 


65135 


4 


( + 1) 


514 


456 


10250 


125132 


4 


(+2) 


515 


455 


12250 


165130 





(+3) 


516 


454 


11450 


25126 


4 


( + 4) 


517 


453 


50 


24070 





( + 5) 


520 


435 


32150 


124466 


10 


(+6) 


521 


433 


50 


25161 


3 


( + 7) 


522 


b 432 


50 


25125 





READFAIL 


523 


452 


32150 


124463 


10 


( + 1) 


524 


431 


50 


25161 


3 


(+2) 


525 


430 


50 


25071 





(+3) 


526 


434 


50 


25401 





READSUCCESS 


527 


@ 777 


50 


25163 


1 


( + D 


530 


571 


22017 


101161 


15 


SETUPREAD 


531 


570 


22320 


103157 


15 


( + D 


532 


567 


22150 


65155 


15 


( + 2) 


533 


566 


20050 


125152 


5 


(+3) 


534 


565 


20 


41150 


1 


(+4) 


535 


564 


20147 


21147 


5 


(+5) 


53 6 


563 


47 


35405 





(+6) 


537 


(3 402 


54150 


65145 


15 


( + 7) 


54 


562 


36050 


125143 


15 


( + 10) 


54 1 


561 


0- 


43141 


1 


( + ll) 



t>dt ask . (11 s 



21-Mar-80 15:21:54 



Paae 



542 


560 


20147 


21136 


5 


( + 12) 


543 


557 


47 


35411 





( + 13) 


544 


§ 404 


54150 


65134 


15 


( + 14) 


545 


556 


20050 


125133 


1 


( + 15) 


546 


555 





47131 


1 


( + 16) 


547 


554 


20147 


21127 


5 


( + 17) 


550 


553 


47 


35414 





(+20) 


551 


i? 406 


54150 


65125 


15 


( + 21) 


552 


552 


20050 


125123 


5 


(+22) 


553 


551 


20162 


133121 


5 


( + 23) 


554 


550 


16163 


65116 




(+24) 


555 


547 


26000 


113114 




( + 25) 


556 


546 


27350 


125113 




( + 26) 


557 


545 


26301 


101110 




( + 27) 


560 


544 


26150 


11107 




(+30) 


561 


543 


26050 


125105 




(+31) 


562 


542 


26151 


65103 




(+32) 


563 


541 


36353 


125101 


15 


( + 33) 


564 


540 


36423 


101077 


15 


(+34) 


565 


537 


16161 


53075 




(+35) 


566 


536 


26000 


105072 




(+36) 


567 


535 


27350 


125071 




(+37) 


570 


534 


26314 


101067 




( + 40) 


571 


533 


26150 


11065 




( + 41) 


572 


532 


26050 


125062 




( + 42) 


573 


531 


26151 


65061 




(+43) 


574 


530 


20353 


125056 




(+44) 


575 


527 


26002 


107055 




(+45) 


576 


526 


26150 


11053 




(+46) 


577 


525 


26000 


125051 




(+47) 


600 


524 


26151 


65046 




(+50) 


601 


523 


20353 


125045 




(+51) 


602 


522 


24150 


25043 


11 


(+52) 


603 


521 


50 


24054 





( + 53) 


604 


427 


26002 


107147 





(+54) 


605 


463 


26150 


11144 





(+55) 


606 


462 


26000 


107143 





(+56) 


607 


461 


26151 


65140 





(+57) 


610 


460 


20353 


125055 





(+60) 


611 


426 


24150 


25040 


5 


CHECKFLAG 


612 


520 


50 


24051 





( + D 


613 


425 


26002 


107156 





( + 2) 


614 


467 


26150 


11155 





(+3) 


615 


466 


26020 


101153 





(+4) 


616 


465 


26151 


65151 





( + 5) 


617 


464 


20353 


125050 





(+6) 


620 


424 


36150 


65037 


15 


WRITECS 


621 


517 


10050 


125035 


11 


( + D 


622 


516 


20150 


65033 




( + 2) 


623 


515 


10450 


165030 


11 


(+3) 


624 


514 


20463 


63026 


5 


( + 4) 


625 


513 


10465 


167025 


11 


(+5) 


626 


512 


10463 


153022 


11 


(+6) 


627 


511 


10461 


171020 


11 


( + 7) 


630 


510 


10760 


175016 


11 


( + 10) 


631 


507 


10160 


77015 


11 


( + 11) 


632 


506 


20450 


125012 




( + 12) 


633 


505 


20150 


65010 


5 


( + 13) 


634 


504 


36150 


25006 


15 


( + 14) 


635 


503 


22147 


21004 


15 


( + 15) 


636 


502 


47 


31420 





( + 16) 


637 


410 


20150 


25002 


1 


( + 17) 


640 


501 


22147 


21001 


15 


(+20) 


641 


500 


47 


33424 





(+21) 


642 


@ 412 


26174 


71176 


10 


(+22) 


643 


477 


24050 


125174 





( + 23) 


644 


476 


10017 


101172 


10 


(+24) 


645 


475 


10320 


103171 


10 


( + 25) 


646 


474 


10150 


65167 


10 


(+26) 


647 


473 


24350 


125165 





(+27) 


650 


472 


22017 


137163 


14 


( + 30) 


651 


471 


22320 


103160 


14 


(+31) 


652 


470 


50 


25401 





(+32) 


653 


1546 


32000 


105125 


15 


STACKCOMPARE 


654 


1552 


10217 


77123 


15 


( + 1) 


655 


1551 


23450 


25121 


1 


( + 2) 



edtask. dls 



21-Mar-80 15:21:5- 



Page 



656 


1550 


50 


24010 





(+3) 


657 


1405 


32150 


124406 


10 


(+4) 


660 


1403 


50 


25114 


1 


(+5) 


661 


b 1402 


50 


25117 


1 


STACKFAIL • 


662 


154 7 


32150 


124403 


10 


( + 1) 


663 


1401 


50 


25114 


1 


(-2) 


664 


1400 


50 


25011 





(-3) 


665 


1404 


50 


25401 





STACKSUCCESS 


666 


2044 


22017 


105156 


15 


WRITETEST 


667 


2167 


22320 


1C3154 


15 


( + D 


670 


2166 


22150 


65153 


15 


(+2) 


671 


2165 


20050 


125151 


5 


(*3) 


672 


2164 


20 


41147 


1 


(+4) 


673 


2163 


20147 


21144 


5 


(+5) 


57-1 


2162 


47 


35441 





(+6) 


675 


92020 


54150 


65143 


15 


( + 7) 


676 


2161 


36050 


125140 


15 


( + 10) 


577 


2160 





43136 


1 


( + 11) 


700 


2157 


20147 


21135 


5 


( + 12) 


701 


2156 


47 


35444 





( + 13) 


702 


§2022 


54150 


65132 


15 


( + 14) 


703 


2155 


20050 


125130 


1 


( + 15) 


704 


2154 





47126 


1 


( + 16) 


705 


2153 


20147 


21124 


5 


( + 17) 


706 


2152 


47 


35450 





( + 20) 


707 


(§2024 


54150 


65123 


15 


(+21) 


710 


2151 


20050 


125120 


5 


(+22) 


711 


2150 


20162 


133117 


5 


( + 23) 


712 


2147 


16163 


65115 




(+24) 


713 


2146 


26000 


113112 




(+25) 


714 


2145 


27350 


125110 




(+26) 


715 


2144 


26301 


101107 




(+27) 


716 


2143 


26150 


11104 




(+30) 


717 


2142 


26050 


125103 




(+31) 


720 


2141 


26151 


65100 




(+32) 


721 


2140 


36353 


125077 


15 


(+33) 


722 


2137 


36423 


101074 


15 


(+34) 


723 


2136 


16161 


53073 




( + 35) 


724 


2135 


26000 


105071 




(+36) 


725 


2134 


27350 


125066 




(-37) 


726 


2133 


26314 


101064 




(+40) 


727 


2132 


26150 


11063 




( + 41) 


730 


2131 


26050 


125061 




( + 42) 


731 


2130 


26151 


65057 




( + 43) 


732 


2127 


20353 


125055 




( + 44) 


733 


2126 


26002 


107053 




(+45) 


734 


2125 


26150 


11050 




(+46) 


735 


2124 


26000 


125046 




(+47) 


736 


2123 


26151 


65045 




(+50) 


737 


2122 


20353 


125043 




(+51) 


740 


2121 


24150 


25040 


11 


(+52) 


741 


2120 


50 


24025 





( + 53) 


742 


2013 


26002 


107121 





(+54) 


743 


2050 


26150 


11117 





(+55) 


744 


2047 


26000 


107115 





(+56) 


745 


2046 


26151 


65113 





(+57) 


746 


2045 


20353 


125024 





(+60) 


747 


2012 


24150 


25037 


5 


CHECKFLAG2 


750 


2117 


50 


24020 





( + D 


751 


2011 


26002 


107130 





( + 2) 


752 


2054 


25150 


11127 





(+3) 


753 


2053 


26020 


101124 





(+4) 


754 


2052 


26151 


65123 





( + 5) 


755 


2051 


20353 


125021 





(+6) 


756 


2010 


36150 


65034 


15 


WRITECS2 


757 


2116 


10050 


125033 


11 


( + D 


760 


2115 


20150 


65030 


1 


( + 2) 


761 


2114 


10450 


165027 


11 


(+3) 


762 


2113 


20463 


63025 


5 


(+4) 


763 


2112 


10465 


167023 


11 


(+5) 


764 


2111 


10463 


153021 


11 


(+6) 


765 


2110 


10461 


171016 


11 


( + 7) 


7 66 


2107 


10760 


175015 


It 


( + 10) 


767 


2106 


10160 


77013 


11 


( + 11) 


770 


2105 


20450 


125011 


1 


( + 12) 


771 


2104 


20150 


65007 


5 


( + 13) 



edt.ask.dls 



2 I -Mar-SO 15:21:5-1 



Page 



772 


2103 


36150 


25005 


15 


( + 14) 


773 


2102 


22147 


21002 


15 


( + 15) 


774 


2101 


47 


31454 





( + 16) 


775 


@2026 


20150 


25001 


1 


( + 17) 


776 


2100 


22147 


21176 


14 


(+20) 


777 


2077 


47 


33460 





( + 21) 


1000 


§2030 


26174 


71175 


10 


(+22) 


1001 


2076 


24050 


125172 





(+23) 


1002 


2075 


10017 


103170 


10 


(+24) 


1003 


2074 


10320 


103166 


10 


(+25) 


1004 


2073 


10150 


65164 


10 


(+26) 


1005 


2072 


24350 


125163 





(+27) 


1006 


2071 


27402 


15160 


4 


(+30) 


1007 


2070 


50 


24214 





(+31) 


1010 


2006 


17 


41156 





(+32) 


1011 


2067 


27450 


25154 


4 


(+33) 


1012 


2066 


50 


24211 





(+34) 


1013 


2004 


50 


25017 





(+35) 


1014 


2007 


45 


5132 





BACKTOMAIN 


1015 


2055 


50 


25000 





( + 1) 


1016 


2005 


32150 


25153 


4 


CHANGEXB 


1017 


2065 


50 


24004 





( + D 


1020 


2003 


16150 


65143 


4 


(+2) 


1021 


2061 


17174 


45140 


4 


(+3) 


1022 


2060 


17174 


67137 


4 


(+4) 


1023 


2057 


15150 


65135 


14 


( + 5) 


1024 


2056 


16050 


125004 


4 


(+6) 


1025 


2002 


16150 


65151 


4 


SETTARGETVAL 


1026 


2064 


10050 


125147 


4 


( + 1) 


1027 


2063 


24147 


21145 





(+2) 


1030 


2062 


50 


25401 





(+3) 


1031 


9 761 


10002 


103012 


12 


HIGHTASK761 


1032 


605 


10150 


3010 


12 


( + D 


1033 


604 


44150 


65007 


16 


(+2) 


1034 


603 


40150 


3144 


17 


(+3) 


1035 


@ 762 


20050 


101004 


16 


(+4) 


1036 


602 


2 


47002 


2 


( + 5) 


1037 


601 


676 


41001 


2 


(+6) 


1040 


600 


50 


23177 


1 


( + 7) 


1041 


577 


70337 


77175 


15 


( + 10) 


1042 


576 


72150 


3172 


15 


( + 11) 


1043 


575 


40676 


101170 


15 


( + 12) 


1044 


574 


40150 


7166 


15 


( + 13) 


1045 


. 573 


40147 


21164 


15 


( + 14) 


1046 


572 


50 


25401 





( + 15) 


1047 


@ 772 


32000 


107025 


16 


SUBTEST3 


1050 


612 


26150 


3023 


6 


( + D 


1051 


611 


40150 


65021 


16 


(+2) 


1052 


610 


11450 


25016 


6 


(+3) 


1053 


607 


50 


24045 





(+4) 


1054 


423 


32150 


124442 


10 


(+5) 


1055 


421 


50 


25164 


3 


(+6) 


1056 b 420 


50 


25015 


2 


WRITEFAIL 


1057 


606 


32150 


124403 


10 


( + 1) 


1060 


401 


50 


25164 


3 


(+2) 


1061 


400 


50 


25044 





(+3) 


1062 


422 


50 


25401 





WRITESUCCESS 


Page 400: 221 


locations used. 


157 free 


Page 1000 


277 


locations used. 


101 free 


Page 1400 


153 


locations used. 


225 free 


Page 2000 


170 


locat' 


ons used. 


210 free 


RM: 















1 


REVISION 






1 


5 


RUN-TIME 






2 





INNERLOOPCOUNTER 


3 




PASSCOUNT 






4 


2 


MAXPASS 






5 


1 


NEWRAND 






6 





SHORTL0OP 






7 




SUBTEST 






11 




DBTEST 






12 




MISCTEST 






13 






PCFTEST 
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14 




RRTEST 


15 




SBTEST 


16 




STKTEST 


17 




CSO 


20 




CS1 


21 




CS2 


22 




DELTASTACK 


23 




DUMMYREGISTER 


24 




EXPECTEDSTKP 


25 




FIELDMASK 


26 




INITIALCYCCTL 


27 




INSTRUCTIONADDRESS 


30 




NEWTASK 


31 




REGSHIFTFLAG 


32 




STACKSHIFTFLAG 


33 




STKPTEST 


34 




STUFFTMP 


35 




TARGETREGISTER 


36 




TARGETTASK 


40 


40 


INITIALSTKP 


41 


41 


TARGETVALUE 


42 


42 


TMP 


43 


43 


SAVESTKP 


44 


44 


RESULT 


45 


45 


WRITETESTREENTRYLOC 


52 




CA 


53 




CB 


54 




XA 


55 




RLC® XB 



Time: 13 seconds; error(s). warning(s). 11403 words free 
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;: :EDTaskLog. MIDAS : Logger for EDTask program 
: : By: C. Chan Mar. 20. 1980 

start L X AppendOutput EDTask. report : 

L X WriteMessage „********** START EDTask Test : : 

L X WriteDT; 

L X WriteMessage ****«**********_ . 

L X Skip .continue: 

breakpoint L X AppendOutput EDTask . report : 
L A18 SkipNE READFAIL: 
L X Skip .ReadFail : 
L A18 SkipNE STACKFAIL: 
L X Skip .StackFail : 
L A18 SkipNE WRITEFAIL: 
L X Skip .WriteFail : 
L A18 SkipNE PASSED-EDTASK-TEST : 
L X Skip .passtest; 

notmybreak L X AppendOutput EDTask. report ; 

L X WriteMessage *** FAILed: Not at my breakpoint ~; 

L X WriteMessage ' Parity = 

R A0 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CIA = ; 

R A18 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK = : 

R A19 Val; 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK ■ : 

R A17 Val ; 

L X WriteMessage: 

L X WriteMessage -; 

L X WriteMessage ' APC = : 

R A16 Val : 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' TPC = 

R A13 Val: 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 
L X Exit; 

ReadFail L X WriteMessage *** FAILed: at my Breakpoint ~: 

L X WriteMessage * Result of the register read does not match the TargetValue 

L X WriteMessage ' Result = 

R B17 Val : 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ' TargetValue = : 

R B18 Val ; 

L X WriteMessage: 

L X WriteMessage ~: 

bad L X WriteMessage ' SUBTEST = ; 
R B4 Val : 
L X WriteMessage; 
I. X WriteMessage -: 

L X WriteMessage ' PASSCOUN1 = 
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R B2 Val : 

L X WriteMessage: 

L X WriteMessage ~: 

L X Skip .continue: 

StackFail L X WriteMessage *** FAILed: at my Breakpoint ~: 

L X WriteMessage * ExpectedStkp does not match the value of the STKP found ~ 

L X WriteMessage * immediately after the read or write instruction (SaveStkp) 

L X BackSkip .bad; 

writeFail L X WriteMessage *** FAILed: at my Breakpoint ~: 

L X WriteMessage * The contents (t) of the register written (TargetRegister) • 
L X WriteMessage * do not match the TargetValue -: 
L X BackSkip .bad: 

.passtest L X WriteMessage PASSed EDTask Test : : 

L X WriteDT; 



L X WriteMessage 
L X Skip .continue: 



continue 


L 


X WriteMessage ~: 




L 


X CloseOutput; 




L 


X DisplayOn; 




L 


X Confirm: 




L 


X TimeOut 10000000: 




L 


X Continue; 




L 


X Skip 2; 




L 


X ShowError Program failed to CONTINUE 




L 


X BackSkip .notmybreak; 




L 


X DisplayOff; 




L 


X BackSkip .breakpoint; 
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L A19 Val 

L X Confirm 

L X Load EDTASK; 

L BO Addr REVISION: 

L Bl Addr RUN-TIME: 

L B2 Addr PASSCOUNT: 

L B3 Addr MAXPASS: 

L B4 Addr SUBTEST: 

L B6 Addr DBTEST: 

L B7 Addr MISCTEST: 

L B8 Addr PCFTEST: 

L B9 Addr RRTEST; 

L BIO Addr SBTEST; 

L Bll Addr STKTEST: 

L B13 Addr TIELDMASK: 

t. B14 Addr INITIALSTKP: 

L B16 Addr EXPECTEDSTKP : 

L B17 Addr RESULT; 

L B18 Addr TARGETVALUE : 

L C16 Addr SHORTLOOP: 

L C17 Addr NEWRAND: 

L X DisplayOn: 

L X TimeOut 10000 

L X SS GO 

L X Skip 1 

L X ShowError Single-step at GO hung 
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% 

ft*************************************************************************************** 

*** EDtimex.mc : Timer Exerciser microcode *** Revision 1 *** 

*** Purpose : This test exercises timers - 15d. 

It replaces the page 16d portion of standard KERNEL. 
*** Minimum Hardware : Standard 4 CPU boards. 
*** Approximate Run Time : 6d seconds. 
•** Written by : C. Thacker, Feb. 25, 1979 
*** Modified by : K. Mayekawa, Feb. 28, 1980 

*** Standardize title page and code format. 

J*************************************************************************************** 

*****«*•*•*•********•**************«******•*********:*•**•*•****•**********•*****•**••*** 

•SubTest Description: 

* SubTest 0: Timer Initil ization (Task 14) 

Clears the timers and sets up the refresh timer. 

* SubTest 1: Timer Wakeup routine (Task 14) 

Timer wakeups come here. 

If the timer 15d expires, memory is refreshed and a new value 

is added to the timer, then Mouse halt is checked. 

If any of the timers 0-14d expires, it is restarted and timeout 

counter for that timer is set to TimeOut. 

* SubTest 2: Check Timeout routine (Task 0) 

Loads the timers 0-l^d, sets a timeout value for these timers 
to TimeOut, then checks for timeouts. 

******* >* a************************************************************************ ******* 

•Breakpoints : 

* Fail : The timer was not restarted (timeout register was not set 

to TimeOut) when it expired. 

* Passed-EDtimex-Test : Passed all tests, and all passes. 

* WrongSlotExpired : Wrong timer slot expired. Timer slots should expire from 

14<j to sequentially. 

•Note: The program also breaks at MouseHalt. 

******* *****************************»**********************************'*********»*'*«»*** 

♦Breakpoint Logic Analyzer Sync Points: 

* There is no short looping capability for this exerciser. 

♦♦♦••WW********************************************************************************* 

•Loading and Reading Timers: 

* Timers are loaded from the ALUA bus by functions LOADTIMER and ADDTOTIMER. 

* Also they can be read as an external R source(TIMER) . 

* When loading or adding to timers, bits are divided as follows: 

* Sits - 3 : new state (loaded by both LOADTIMER and ADDTOTIMER) 

* Bits 4 - 11 : new data to be loaded (by LOADTIMER) or new data to be added 

* to the current data (by ADDTOTIMER) 

* Bits 12 - 15 : slot number to be loaded 
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•Special Reg. Definition: 

* RM[20b] - RM[36b]: contains timeout values for each slot. 

set to TimeOut(=4Cb) when timers are started initially. 

Each time through the BigLoop, these timeouts are decremented. 
If one of the timeouts becomes zero, a breakpoint occurs. 
The maintenance panel is also incremented, so if you kill the 
breakpoint at FAIL, you will see if any errors occur by noting 
a nonzero panel . 

Whenever a timer expires normally, it is restarted and its associated 
timeout register is set to TimeOut. Thus, we should never see a zero 
value in any of the timeout registers. 

* InnerCount: incremented each time through the BigLoop, i.e. each time 

TimeOuts for all slots throuch 14d are decremented by one. 

* MaxInnerCount: contains the maximum value for InnerCount. 

When InnerCount*MaxInnerCount, the program completes one 
pass, resets InnerCount, and goes back to the start of the 
program if PassCount<MaxPass . 

•Subroutine Description: 

* StartTimer: loads the timer whose slot is in TslotO and sets RM[TslotO + 20b] 

to TimeOut(=40b) . 

It sets the state of the timer to 5 (Simple Timer). 

Value loaded is (112d - (slot# x 4)), loading timer I4d 

with the smallest value and timer with the largest value. 

Thus the timers should expire from slot 14d through sequentially. 



lot number 


State 


(decimal ) 


• 


14 


5 


13 


5 


12 


5 


11 


5 


10 


s 


9 


5 


8 


5 


7 


5 


6 


5 


5 


5 


4 


5 


3 


5 


2 


5 


1 


5 





5 



Value loaded 


TimeOut 


(decimal ) 


stored at 


56 


RM[36b] 


50 


RM[35b] 


64 


RM[34b] 


68 


RM[33b] 


72 


RM[32b] 


76 


RM[31b] 


80 


RM[30b] 


84 


RM[27b] 


88 


RM[26b] 


92 


RM[25b] 


96 


RM[24b] 


100 


RM[23b] 


104 


RM[22j] 


108 


RM[21b] 


112 


RM[20b] 



% 
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••*W*»**»**»**«»»w***»***ft»**w»*»**««**4^**««»****«********»****»***«*«***«**»»*«***a*tt* 



•INITIALIZATION: 

BUILTIN[INSERT,24]; 
INSERT[d01ang]; 
NOMIDASINIT; 
TITLE[Timer Exerciser]; 

Set[TTask,16]; 
Set[TimerPage,2]; 

Set[TimerInitLoc,add[lshift[TimerPage,10],20]]; 
MC[TimerInitlocL,and@[TimerInitloc,377]]; 
MC[TimerInitLocH,add[ 160000, and@[TimerInitLoc, 177400]]]; 
Set[TimerTab1e,add[lshift[TimerPage, 10], 100]]; 

MC[Time rValue. 53400]; 
MC[TimeOut,40]; 



■Notify to task 16. location TimerlnitLoc 



•State 5, Value 112d 



********** R-Registers: ********** 

• Task Registers 
SETTASK[0]; 

RV[SubTest. 60]; 
RV[Rlink0, 61]; 
RV[Revision, 62, 1]; 
RV[Run-Time, 63, 6]; 
RV[PassCount, 64. 0]; 
RV[MaxPass. 65, 5000]; 
RV[InnerCount, 66]; 
RV[MaxInnerCount. 67, 100]; 
RV[Tslot0, .70]; 
RV[Temp, 71]; 
RV[Templ. 72] ; 

• Task 14 Registers 
SETTASK[TTask]; 

RV[Tslot,40]; 
RV[ExpectedSlot.4i] ; 
RV[TimerTemp ,42] ; 
RV[RTimer,43]; 
RV[REFR,44]; 



•subroutine return link 

•Revision 1 

•Run-Time is 6d seconds 



*s1ot number for timers 



•slot number which should expire next 
•temporary register 
•constant for memory refresh timer 
•refresh address 
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•** MAIN routine: 

•SubTest (Timer Initialization) 

SETTASK[TTask]: 
ONPAGE[TimerPage]; 

InitTimers: TimerTemp «- (100000C), AT[TimerInitLoc] ; 



CI rTimers : 



InitDone: 



L0ADTIMER[T1merTemp]; 

NOP; 

NOP 

NOP 

NOP 

TimerTemp «• (TimerTemp) + 1, ResetMemErrs; 

LU «■ (TimerTemp) AND (17C): 

REFR - (0C), OBLGOTO[InitDone. f.irTimers, ALU-0]; 



•clear out all Timers 

•Timers can be loaded only once 

•every 7 microinstructions 



•clear any pending memory errors 
•there are 16d timers 



LU «■ TIMER; 

RTimer <- (50000C); 

RTimer - (RTimer) OR (257C); 

LOADTIMER[RTimer]; 

ExpectedSlot «- 16c; 

CALL[TimerRet]; 



•clear all wakeups 

•set up the Refresh timer 

•simple timer, value lOd, slot 15d 

•■insist that the timers expire in order 
•returns to task 
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•SubTest 1 (Timer Wakeup routine) 

TimerWakeup: DISPATCH[TIMER , 14 ,4] ; 
DISP[Timers]; 



♦Timer dispatch table f 
Timers: REFRESH[REFR] 



Tslot «-T 

Tslot -T 

Tslot *T 

TslOt «-T 

TslOt <-T 

Tslot <-T 

Tslot <-T 

Tslot <-T 

Tslot «-T 

Tslot «-T 

Tslot -T 

TslOt «-T 

TslOt «-T 

Tslot «-T 

TslOt «-T 



16 
15 
14 
13 
12 
11 
10 
7c 
6c 
5c 
4C 
3c 
2c 
lc 
0c 



task 14 (T 
G0T0[Refre 
G0T0[Resta 
60T0[Resta 
60T0[Resta 
G0T0[Resta 
GOTO[Resta 
G0TO[Resta 
G0T0[Resta 
G0T0[Resta 
GOTO[Resta 
GOTO[Resta 
GOTOJTResta 
G0T0[Resta 
G0T0[Resta 
G0T0[Resta 
G0T0[Resta 



imers are 

shNext], 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 

rtTimer 



•Timer wakeups come here 
•initialize base register 

read in complemented form.) 



AT[TimerTable.00] 
AT[TimerTable,01] 
AT[TimerTable,02] 
AT[TimerTable,C3] 
AT[TimerTable,04] 
AT[TimerTable,05] 
AT[TimerTable,06] 
AT[TimerTable,07] 
AT[TimerTable,10] 
AT[TimerTable,ll] 
AT[TimerTable,12] 
AT[TimerTable,13] 
AT[TimerTable,14] 
AT[TimerTable,15] 
AT[TimerTable, 16] 
AT[TimerTable, 17] 



slot 15d(used as a refresh timer] 
"slot 14d 
'slot 13d 
•slot 12d 
•slot lid 
•slot lOd 
•slot 9d 
•slot 8d 
'slot 7d 
•slot 6d 
'slot 5d 
•slot 4d 
•slot 3d 
'slot 2d 
"slot Id 
'slot Od 



•Refresh has been started. 

Ref reshMext: ADDTOTIMER[RTimer] ; 

•Check for Mouse halt 
CheckMouse: T «- 10000C; 

LU «■ (PRINTER) AND (T): 

DBLGOT0[MouseHalt,TimerRet,ALU#0] ; 
TimerRet: RETURN; 

•Mouse halt, Midas breakpoint 
MouseHalt: G0T0[ . ] , SETFAULT; 

RestartTimer: LU *• (ExpectedSlot ) - (T); 

SKIP[ALU«0]: 
WrongSlotExpired: BREAKPOINT; 

ExpectedSlot - ( ExpectedSlot )-l ; 

SKIP[ALU>=0]; 

ExpectedSlot ♦- 16c; 

T ♦■ (Tslot) OR (TimerValue) ; 

TimerTamp ♦- T; 

ADDTOTIMER[TimerTemp] ; 

•Set RM[20b + Tslot] to TimeOut - if this register ever becomes zero, 
•the main program will restart the timer and cause an error. 

Tslot - (Tslot) + (20c); 'Array of count words is in RM[20b]-RM[36b] 

T-STKP; 

TslOt - T, STKP ♦- Tslot; 

TslOt - (Tslot) XOR (377C); 

STACK «- TimeOut; 

STKP ♦• Tslot. RETURN; 'restore stackpcinter 



•load the refresh timer 

•check for mouse halt 

•for task switching 

•timers cannotbe restarted. 

•insist that the slots expire in order 14.. 

•reset expectedslot if negative 
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*SubTest 2 (Check Timeout routine) 

SETTASK[0j: 
0NPAGE[1]; 

start: 

go: SubTest *■ 2C; 

InnerCount ♦• 0C; "reset Inner-Count 

CLEARMPANEL, CALL[Swi tchTol4] ; "Notify timer initialization stuff 

•come back here after timer initialization 
SetTimers: SubTest - 2C; 

TslotO *• T <- (16C), GOTO[StartTLoop]; 

•switch to Task 14, InitTimers 
SwitchTol4: SubTest <- 0C; 

TslotO *• TimerlnitlocL ; 

TslotO «- (TslotO) OR (TimerlnitLOCH) ; 

APC&APCTask - TSIotO; 

RETURN; 

StartTLoop: CALL[StartTimer] ; *start timer, set count to TimeOut 

TslotO - T - (TslotO)-l; 
60TO[BigLoop, ALU<0]; 
G0T0[StartTLoop]; 

BigLoop: TslotO «- T - (16C) ; 
MainLoop: Temp *■ T; 

NOP; *make the loop longer 

Temp *■ (Temp) + (20c): 

SubTest - 1C, TASK; 
CheckTimeout: SubTest ♦- 2C; 

STKP - Temp; 

STACK *- (STACK) - (1C), GOTO[NoFai 1 , R> = 0] ; "slot TslotO got restarted in time 

Fail: BREAKPOINT, INCMPANEL; 

GOTO[go]; 

NoFail: TslotO - T «■ (TslotO) - (1C): 

GOTO[MainLoop, ALU>»0]; 

InnerCount <- T *• (InnerCount) + (1C); "increment InnerCount 

LU - (MaxInnerCount) - (T); 

GOTO[OnePassFinished, ALU=0]; 'finished one pass ? 

G0T0[Bigi_oop]; 

OnePassFinished: PassCount *■ T - (PassCount) + (1C); 'increment PassCount 

LU - (MaxPass) - (T); 

GOTO[Passed-EDtimex-Test, ALU=0]; "finished all passes ? 

G0T0[go]; 

Passed-EDtimex-Test: PassCount *■ 0C, GOTO[go], BREAKPOINT; 



EDtimex.mc 9-Apr-80 14:02:54 Page 



*****•<►*»* SUBROUTINE: StartTimer **••*•*»** 

* 

* to load the timer whose slot is in TslotO and 

* to set RM[TslotO + 20b] to TimeOut 

StartTimer: USECTASK; 

T - APC&APCTASK; 
RlinkO «■ T: 

T *■ TslotO; *TslotO has the slot number 

Temp *■ T; 

Temp «- (Temp) OR (TimerValue) ; 

T - lsh[Tslot0,6]; 

Temp «- (Temp) - (T); 'subtract (slot number x 4) from TimerValue 

LoadTimer[Temp] ; 

T - TslotO; 

Temp <-T ; 

Temp <- (Temp) + (20c) ; 

STKP «- Temp; *set count to TimeOut 

STACK «- TimeOut: 

Temp «- T; "restore the slot number 

APC&APCTASK - RlinkO; 
RETURN; 



END; 



EDtiimex 




SUBTEST 2 



TASKO 



start: 
go: 



3IN J 



TimeOut = 40b 
MaxInnerCount = 100b 
Max Pass = 5 



Timer Configuration: 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

I 



JL 



I 



JL 



InnerCount = 



state 



value 



Slot Number 



V 



CLRM 



NOTIFY 



SUBTEST 



TASK 14 



InitTimers: 



— Task 1 4, go to InitTimers 
paged 



±L 



initialize a register to 
clear the timers 



ClrTim ers: v . 



TimerTemp - 100000b 

i.e. state = 8d • Wait for reload 

value = 

slot = 



clear the timer 



_}' 



LOADTIMER [TimerTemp] 



delay 



NOP: NOP: NOP: NOP; 
(Timer can be loaded only once 
every 7 microinstructions) 



V' 



increment slot number 



TimerTemp = (TimerTemp) ♦ (1C) 



±. 



clear any pending 
memory errors 



ResetMemErrs 



ii 



Initialize refresh address toO REFR = 



_w 



-«~ QS — ( all timers cleared? ) *** >■ 



InitDone: 



\t 



clear all task 14 wakeups 



±. 



set a register to load 

a Refresh Timer (slot 1 5d) 



lu = TIMER 



Rtimer = 50257b 

i.e. state x 5 - Simple Timer 

value = I0d 

slot : I5d 



y_ 



load a Refresh Timer 



LOADTIMER [RTimer] 



JL 



set next slot numberto 14d 



TimerRet: 



ExpectedSlot = 14d 

Timers should expi re in order 



V 



RETURN 



v 



Task 0, go to SetTimers page 03 
if timer initialization has just 
finished 

Task 0, go to CheckTimeout page 03 
if in the middle of timeout check 

Task 14, goto TimerWakeup page 02 
if any of the timers woke up 



TimerTemo[12:15] = 15d 
i.e. slot number = 15d? 



XEROX 
ED 



D(0) 
Diagnostic 
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EDtimex.mc 
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SUBTEST 1 



TASK 14 



TimerWakeup: 



< 2^l£d / slot number . ? \ IS*. 



v 



Dispatch [Timer. 14,4] = ? 



set a register (or slot number 



RestartTimer 



Tsiot = T r slot number 



JL 



yes / right slot \ no 
\ expired? / 



V 



ExpectedSlot = T? 

WrongSlotExpired: ^ 

["break poinTI 



_V 



decrement slot number 



ExpectedSlot s (ExpectedSlot) ■ (1) 



\f 



all slots expired ? 



V 



ExpectedSlot < ? 



yes 



JL 



reinitialize next slot number 



ExpectedSlot = I4d 



V 



add to the expired timer 



TimerTemp = T s (Tslot)OR(TimerValue) 
ADDTOTIMER [TimerTemp] 



\L 



Set count to TimeOut 



V 



restore Stackpointer 



Tslot = (STKP)XOR(377B) 
(STKP Is read in complemented form) 
STKP = (slot number) + (20b) 
STACK = TimeOut 



STKP s Tslot 



RETURN 



v 



— Task 0, go to CheckTimeout page 03 
if there is no timer wakeup 

*— Task 1 4, go to TimerWakeup page 02 
if any of the timers woke up 



Timers: 



v 



refresh memory 



RefreshNext: \ / 



REFRESH [REFR] 



add 10d to a Refresh Timer 



ADDTOTIMER [RTIMER] 



CheckMouse ^_ 



mouse halt ? 



no 



MouseHalt: 



TimerRet 
page 01 



PRINTER[6] r 1 ? 
yes 



V 



Mouse halt 



Midas breakpoint. SETFAULT 
Timers cannot be restarted 



XEROX 
ED 



D(0) 
Diagnostic 



PROGRAM NAME 

EDtimex.mc 



DOCUMENTATION FILE 

EDtimex02.sil 



DESIGNER 

K. Mayekawa 



REV 
1 



DATE 

2/22/80 



PAGE 

02 



SUBTEST 2 



TASKO 



SKO 



SetTlmers: 



initialize slot number to 14d TslotO = T = I4d 



StartTLoop: 



v 



load a timer whose slot 
number is in Tand set 
count toTimeOut 



v 



CALLStartTimer 
page 04 



decrement slot number 



TslOtO a T s (TslOtO) -(1) 



-<- S2 -( all timers started? 



Bug Loop: 



TslotO<0? 



yes 



v 



■£> set slot number to 14d TslotO = T = 14d 



MainLoop: 



-^ 



v 



increment slot Temp = T 

number by 20b Temp = (Temp) + (20b) 



task"! 



A 



Task 1 4, go to TlmerWakeup 
page 02, if any of the timers 
woke up 

Task 0, go to CheckTimeout 
page 03, if there is no timer 
wakeup 



v 



V 



CheckTimeout: 



decrement TimeOut 



Stkp = Temp 

STACK = (STACK) -(1) 



V 



was this slot \ no 

restarted in time? / 



NoFail: 



STACK >= 0? 



yes 



Hi 



v 



Fail: BREAKPOINT 



INCM 



JL 



decrement 
slot number 



m 



V 



go 
page 01 



start all over again 



TslotO = Ta (TslotO)- 1 



\f 



all slots finished? 



V 



TslotO < ? 



yes 



increment InnerCount 



InnerCount = (InnerCount) ♦ (1) 



\' 



no / done with 
\ one pass ? 



InnerCount = MaxInnerCount ? 



OnePassFinished: 



yes 



V 



increment PassCount 



PassCount = (PassCount) ♦ (1) 



V 



done with \ no 
all passes?/ 



V 



go 

paged 



PassCount = MaxPass? 



yes 



PassCount = 



Passed-EDtimex-Test: 

rB REAKPolNTI - 



CONTINUE 



go 

page 01 



±. 



END 



XEROX 
ED 



D(O) 
Diagnostic 



PROGRAM NAME 

EDtimex.mc 



DOCUMENTATION FILE 

EDtimex03.sil 



DESIGNER 

K. Mayekawa 



REV 
1 



DATE 

2/26/80 



PAGE 

03 



SUBROUTINE 



StartTimer 



Start Timer loads the timer whose slot is in TslotO and 
sets RM[TslotO + 20b] to TimeOuK = 40b). 
Value loaded is (1 1 2d - (slot number x 4)) so that the timers 
expire from slot 14d through slot sequentially. 



lot number 


val 


ue loaded 


(decimal) 


(d 


ecimal) 


14 




56 


13 




60 


12 




64 


11 




68 


10 




72 


9 




76 


8 




80 


7 




84 


6 




88 


5 




92 


4 




96 


3 




100 


2 




104 


1 




108 







112 



±. 



save return link 



USECTASK 

RlinkO = APC&APCTASK 



JL 



set registers for slot number 



V 



subtract (slot number x 4) 
from TimerValued 1 2d) 



Temp = TslotO 



Temp » ((Temp)OR(TimerValue)) - (lsh[Temp. 6]) 



V 



load the timer 



JL 



LOADTIMER [Temp] 

i.e. state s 5 • Simple Timer 

value = 1 12d • (slot number x 4) 

slot = TslotO 



set count TimeOut 



STKP = (TslotO) + (20b) 
STACK = TimeOut 



V 



restore the slot number 



Temp = TslotO 



JL 



restore return link 



RETURN 



APC&APCTASK = RlinkO 



XEROX 
ED 



D(0) 
Diagnostic 



PROGRAM NAME 

EDtimex.mc 



DOCUMENTATION FILE 

EDtimex04.sil 



DESIGNER 

K. Mayekawa 



REV 
1 



DATE 

2/22/80 



PAGE 

04 



PARITY 




3 


REVISION 


1 


COMM-ER0 


CYCLECOMTROL 


63 


RUN-TIME 


12 


COMM-ER1 


PCXREG 




7 


PAS3C0UNT 





C0MM-ER2 


PCFREG 




7 


MAXPASS 


5 


BOOT-ERR 


DBRE6 




77 


^SUBTEST 


2 


*BOOTREASON 


SBREG 




77 






MEMSYNDROME 


MNBR 




3423 


INNERCOUNT 







*SSTKP 




377 


MAXINNERCOUNT 


100 




STKP 




3 








*ALURE3ULT 


3 


TSLOT0 







*SALUF 




377 


TSLOT 







T 28 




7000 


EXPECTEDSLOT 







AATOVA 







RTIMER 







TPC 20 




7777 








CALLER 


ILCQ' 


4-763Q 








*PAGE 




1 








*APC 




7011 








*APCTASK 




16 








*CIA 




GO+1 








CTASK 













Loaded : 


EDTIMEX 






Tim 







40 
131000 



08.47 



Step at 0:60, BP at G:GO+l 



Exit Boot Run-Prog Read-Crnds Break UnBreak ClrAddedBPs ClrAllBPs ShowBPs Go 

S3 ji^Til?. ?5HT3 Load LdSyms Compare Test-All Test Dump Show-Cmds Write-Cmds 
Virtual 
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MicroD 8.6 (OS 16) of April 27. 1979 
at 29-Fel)-80 9:28:41 

microd.run Edtimex 



Edtimex. Dili 152b instructions written 29-Feb-80 9:27:57 

Total of 152b instructions 

Checking for errors... 
Linking . . . 

Building allocation lists... 
Assigning locations... 

152b instructions in rings involving ONPAGE or AT 
Reloading binaries. . . 
Checking assignment... 
Writing .MB file. . . 
Writing 1 isting. . . 

IM: 

Imag Real WO Wl W2 Symbol 















Edtimex. DIB: 













81020 


10030 


101013 


10 


INITTIMERS 


1 


1005 


10142 


25064 


10 


CLRTIMERS 


2 


1032 


50 


25063 





( + D 


3 


1031 


50 


25060 





(+2) 


4 


1030 


50 


25056 





(+3) 


5 


1027 


50 


25055 





(+4) 


6 


1026 


11050 


133052 


10 


(+5) 


7 


1025 


10200 


37051 


10 


(+6) 


10 


1024 


12020 


100010 





( + 7) 


11 


1004 


64150 


25047 


14 


INITDONE 


12 


1023. 


10025 


101045 


14 


( + 1) 


13 


1022 


10312 


137042 


14 


(+2) 


14 


1021 


10142 


25036 


14 


(+3) 


15 


1017 


10000 


135021 


4 


( + 4) 


16 


1010 


50 


25215 





(+5) 


17 


1011 


64174 


1035 


14 


TIMERWAKEUP 


20 


1016 


50 


25601 


1 


( + 1) 


21 


©1100 


152350 


1033 





TIMERS 


22 


©1101 


10000 


175113 





( + D 


23 


©1102 


10000 


173113 





(+2) 


24 


01103 


10000 


171112 





(+3) 


25 


©1104 


10000 


167113 





(+4) 


26 


01105 


10000 


165112 





(+5) 


27 


01106 


10000 


163112 





(+6) 


30 


©1107 


10000 


161113 





(+7) 


31 


01110 


10000 


157113 





( + 10) 


32 


01111 


10000 


155112 





( + 11) 


33 


01112 


10000 


153112 





( + 12) 


34 


01113 


10000 


151113 





( + 13) 


35 


01114 


10000 


147112 





( + 14) 


36 


01115 


10000 


145113 





( + 15) 


37 


01116 


10000 


143113 





( + 16) 


40 


©1117 


10020 


141113 





( + 17) 


41 


1015 


10143 


25031 


14 


REFRESHNEXT 


42 


1014 


21 


41026 





CHECKMOUSE 


43 


1013 


62250 


1024 


14 


( + 1) 


44 


1012 


50 


24015 





(+2) 


45 


1006 


50 


25401 





TIMERRET 


46 


1007 


47 


17016 





MOUSEHALT 


47 


1045 


11450 


25110 


4 


RESTARTTIMER 


50 


1044 


50 


24004 





( + 1) 


51 


b 1003 


50 


25005 





WRONGSLOTEXPIRED 


52 


1002 


11350 


125107 


4 


( + D 


53 


1043 


50 


24200 





(+2) 


54 


1001 


10000 


135000 


4 


(+3) 


55 


1000 


10325 


57104 





(+4) 


56 


1042 


10050 


125103 


10 


(+5) 


57 


1041 


10143 


25101 


10 


(+6) 


60 


1040 


11101 


101076 





( + 7) 


61 


1037 


70166 


47075 


14 


( + 10) 



EDtimex.dls 
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Page 



62 


1036 


10050 


103073 





( + 11) 


63 


1035 


10417 


137070 





( + 12) 


64 


1034 


40002 


101067 


14 


( + 13) 


65 


1033 


10150 


3400 





( + 14) 


66 


420 





105134 





GO START 


67 


456 


2020 


101035 


10 


( + D 


70 


416 


47 


7252 





(+2) 


71 


417 





105132 





SETTIMERS 


72 


455 


4000 


175014 





( + 1) 


73 


425 


20 


101050 





SWITCHT014 


74 


424 


4001 


101046 





( + 1) 


75 


423 


4336 


105045 





(+2) 


76 


422 


4147 


21043 





(+3) 


77 


421 


50 


25401 





(+4) 


100 


406 


50 


25314 





STARTTLOOP 


101 


407 


5350 


165131 





( + 1) 


102 


454 


50 


24230 





( + 2) 


103 


414 


50 


25014 





(+3) 


104 


415 


4000 


175000 





BIGLOOP 


105 


400 


4050 


125122 


4 


MAINLOOP 


106 


451 


50 


25120 





( + 1) 


1C7 


450 


5101 


101024 


4 


(+2) 


110 


412 





103317 





(+3) 


111 


447 





105401 





CHECKTIMEOUT 


112 


413 


4150 


3126 


4 


( + 1) 


113 


453 


41400 


102410 


14 


(+2) 


114 b 


405 


47 


5136 





FAIL 


115 


457 


50 


25041 





( + 1) 


116 


404 


5400 


143125 





NOFAIL 


117 


452 


50 


24200 





( + 1) 


120 


401 


3100 


143147 


10 


( + 2) 


121 


463 


3450 


25144 


14 


(+3) 


122 


462 


50 


24020 





( + 4) 


123 


411 


50 


25033 





(+5) 


124 


410 


3100 


143143 





ONEPASSFINISHED 


125 


461 


3450 


25140 


4 


( + 1) 


126 


460 


50 


24004 





(+2) 


127 


403 


50 


25041 





(+3) 


130 b 


402 


2020 


101040 





PASSED-EDTIMEX-TEST 


131 


446 


47 


27112 





STARTTIMER 


132 


445 


50150 


65110 


14 


( + 1) 


133 


444 


50 


125107 


4 


(+2) 


134 


443 


4150 


65105 





(+3) 


135 


442 


4050 


125103 


4 


( + 4) 


136 


441 


4325 


117100 


4 


(+5) 


137 


440 


4174 


55076 





(+6) 


140 


437 


5450 


125075 


4 


( + 7) 


141 


436 


4142 


25073 


4 


( + 10) 


142 


435 


4150 


65070 





( + 11) 


143 


434 


4050 


125067 


4 


( + 12) 


144 


433 


5101 


101065 


4 


( + 13) 


145 


432 


4150 


3063 


4 


( + 14) 


146 


431 


40002 


101061 


14 


( + 15) 


147 


430 


4050 


125057 


4 


( + 16) 


150 


427 


147 


21054 


4 


( + 17) 


151 


426 


50 


25401 





( + 20) 



Page 400: 64 locations used. 314 free 
Page 1000: 66 locations used, 312 free 



RM: 



60 




SUBTEST 


61 




RLINKO 


62 


1 


REVISION 


63 


12 


RUN-TIME 


64 





PASSCOUNT 


65 


5 


MAXPASS 


66 




INNERCOUNT 


67 


100 


MAXINNERCOUNT 


70 




TSLOTO 


71 




TEMP 


72 




TEMPI 


340 




TSLOT 


341 




EXPECTEDSLOT 


342 




TIMERTEMP 



EDtimex.dls 
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Page 



343 RTIMER 

344 REFR RLCS 

Time: 7 seconds; error(s), warning(s) 



11947 words free 
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EDtimexLog. MIDAS : Logger for EDtimex program 

By: K. Mayekawa Feb - 25 - 1980 

.start L X AppendOutput EDtimex. report: 

L X WriteMessage .********** START EDtimex Test : ; 
L X WriteDT; 

L X WriteMessage ****** - : 

L X Skip .continue: 

.breakpoint L X AppendOutput EDtimex . report : 

L A18 SkipNE WRONGSLOTEXPIRED; 

L X Skip .wrongslotexpired; 

L A18 SkipNE FAIL; 

L X Skip .fail ; 

L A18 SkipNE PASSED-EDTIMEX-TEST; 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDtimex . report: 

L X WriteMessage *** FAILed: Not at my breakpoint ~; 

L X WriteMessage * Parity = : 

R A0 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage * CIA = ; 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage -: 

L X WriteMessage ' CTASK * ; 

R A19 Val; 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK = : 

R A17 Val ; 

L X WriteMessage; 

L X WriteMessage -: 

L X WriteMessage ' APC = : 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' TPC = ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X CloseOutput; 
L X Exit; 

.wrongslotexpired L X WriteMessage *** FAILed: at my Breakpoint ~: 

L X WriteMessage * Wrong Slot Expired ~; 

bad L X WriteMessage ' SUBTEST = ; 

R B4 Val; 

L X WriteMessage: 

L X WriteMessage ~: 

L X WriteMessage ' PASSCOUNT = ; 

R B2 Val ; 

L X WriteMessage; 

L X WriteMessage -: 

L X WriteMessage ' INNERCOUNT = 

R B6 Val : 

L X WriteMessage; 

L X WriteMessage ~; 

L X Skip .continue: 
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fail L X WriteMessage *** FAILed: at my Breakpoint -: 

L X WriteMessage * Timer Not Restarted -; 

L X BackSkip .bad; 

passtest L X WriteMessage ~ PASSed EDtimex Test 

L X WMteDT; 

L X WriteMessage : 

L X Skip .continue; 



continue 


I X WriteMessage -: 




L X CloseOutput: 




L X DisplayOn; 




L X Confirm; 




L X TimeOut 10000000; 




L X Continue: 




L X Skip 2; 




L X ShowError Program failed to CONTINUE 




L X BackSkip .notmybreak; 




L X DisplayOff; 




L X BackSkip .breakpoint; 



EDtimex.midas 13-Mar-80 10:38:43 Page 1 



L A19 Val 

I X Confirm 

L X Load EDTIMEX: 

L BO Addr REVISION 

L Bl Addr RUN-TIME 

L B2 Addr PASSCOUNT 

L B3 Addr MAXPASS 

L B4 Addr SUBTEST 

L B6 Addr INNERCOUNT 

L B7 Addr MAXINNERCOUNT 

L B9 Addr TSLOTO 

L BIO Addr TSLOT 

L Bll Addr EXPECTEDSLOT 

L B12 Addr RTIMER 

L X DisplayOn: 

L X TimeOut 10000 

L X SS 60 

L X Skip 1 

L X ShowError Single-step at GO hung 



